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BIN 
EQUATES 
=% 

=% 

s%3 


=10000 
=24 


=33 
233 


ITE COUNTER. 
£ ee INDICATOR 


; INDEX TO BOOT ROUTINE. 
; INDEX TO DIRECTORY ROUTINE 
; ) ROUTINE 


;INDEX T9 ZERO 
;INDEX 70 DELETE ROUTINE 
SINDEX TO CLOSE ROUTINE 
SINDEX TO ENTER ROUTINE 


; U 
; INDEX 1 LOKUP pur 


; TE ROUTINE 

; INDEX 10 SERVICE ROUTINE (ORIVER). 
;DRIVE NUMBER INDEX 

; INDEX TO ithe A: REGISTER 


; TO AND 

; INDEX TQ READ COMMAND 

; INDEX TO WRITE COMMAND 

; INDEX TO REQUESTED BLOCK COUNT 
pat TQ 1ST DIR BLOCK POINTER. 
; INDE LAST BLOCK # ALLOCATED. 
INDEX TO ASCII NAME tN 008 


;MONITOR SIZE IS 4 
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POINTER TO MONTTOR CORE IMAGE. 
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-SBTTL GLOBAL REFERENCE DEFINITIONS 
sEXTERNAL GLOBAL DEFINITIONS 


-GLOBL SETMTO 
-GLOBL CREWND, CRDHOR 


MTST =16400e 
MTOM =164000 
MTWC =164004 
MTBA =164006 
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ONCE ONLY BOUT LOADER 


-SBTTL ONCE ONLY BOOT LOADER 


09 een 549 
12700 036000 MOY #36000, RO ;RELOCATION ADDRESS 
000006 O0S001 CLR ORL SINITIALIZE TO OLD ADORE 
Beotg 94s79— oao%o0 is: Move TRTS3° Rope are ME 96 UBER > 
Bepos8 Barack BeOS CONT ack IF NOT DONE 
Ooe2 00197 036070 IMP 3836070 STUMP TO BOGT LOAD SUB ROUTIN 
go0000 opo900 gogD00 "WORD 0,0,0,0,0,9,0,0,9,0,0,9 


000040 

090046 000000 000000 000000 
909054 000000 000000 990000 
009062 900000 c00000 co00000 


FO NINN NN LO ORL LB LO LO PO LDR LPR PRL PL PP er NEN ENS 
rururu frurotu rurorurorurorurururorurorururure foro rurururure 
Nt et et a et et et es es ee a ee ees rs a es aes ss es 


000146 032737 000020 164002 


SNR RENN ER RR RN ORR FR FRR PR FRR SR PRN 


rororanone no Nonoronororon fone Po nonoru foronore forore 
er et et Net ee ee Beet Se et ee er ee Se ee ee Oe ee ee ee ee ee 


sree 


000070 270 
70 o0024 INIT: NOP ;RESET PERIPHERALS 
? iets o4¥o000 MOV oo00, SP ap pihitual ize oeRAL POINTER 
1, gaa ae CHECK IF ‘ieee: READY BND AT L POINT aaa ae 
58 B92985 Spoke 164002 BIT Son Sany TPS F FOR LOAD PCINT INDICATOR 
sa enseeat ;IF YES READ ID ue ve NO RENIN THE T TO toad POINT 
18 Beengs 164002 RWNO: BNE BRS i BReNee start S LpeR 
Sac ia: ar ue nee 
b130 05037 16400 BURST: CLR POAT ireaR Status gee REG. 
134 012737 Oo90005 164000 MOV &5, JUMTCM :READ COMMAND 
000142 OO04767 900114 JSR PC READY ;DONE?? 


BIT te, JaMTST IDB BIT INDICATOR SET 7? 
;10 BURST IS TES"ED'FOR, IF NOT PRESENT AT BEGINNING OF TAPE 
: THE TAPE HALTS. 


Sooiee | poeca? 16M Bre oSanee TATUS REG 

Biles Bisra7 ABCOSE se4o00 MOV = #S, JEMTCM ise "READ FURCT IG 
mi ieee ooo pee SET INITIAL TOAD ADDRESS T0.¢ 

toe BPBOSS  euooe REED: MOY RY. JeMTBA 10 ‘bo Be TRE TTR: (502 AODRESS DURING OMA 

oo0202 012737 177000 164004 MOY —a-$12. , JaMTWC SET BLobk SIZE TO READ 256. (DECIMAL) 
00210 o0s037 164002 CLR aNMTST : CHARAC 
00214 012737 OO000S 1e4D0C MOV #5, DaMTCM 
co0222 Oo4767 Doon3G JSR PC’ READY . 
C0026 O32737 OO00I0 164o02 BIT saa. aaNTST SCHECK IF END OF FILE MARK HAS BEEN READ 
o0es4 sbldde 30 0Cti«SS 
00236 000137 oD1000 IMP =: 81000 ;JUMP TO THE BEGIN OF TROP PROG 


;CHKARACTERS HAVE BEEN TRANSFERRED FROM TAPE TO CORE, BEGIN T 
PACK THE CHARACTERS INTO WORDS. 


C&Ce42 O0i2703 177000 3S: Mov s-Si2.,R3 ; COUNTER 
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OMSUFA.P ONCE SNLY BOST LOADER '- §€6 a0as 
(2) 00024 oc104cs5 MOV RY. RS ;R4 USED TO POINT TO WORD ADDRESSES 
(2) 990250 112524 PACK: MOVE (RS)4, (R44 RS USED TO POINT TO BYTE ADDRESSES 
(2) 000252 o0s205 INC RS 
(2) 000254 905203 INC R32 ;COUNT # OF WORDS 
(2) 000256 001374 BNE PACK :IF NOT, KEEP PACKING 
(2) 900260 o00746 BR REED :IF YES’ GO Back AN “GET ANOTHER 
‘) ‘BLOCK FROM TAPE 
(2) 000262 105737 164000 READY: TSTB  @aMTCM :CHECK IF TAPE CONTROLLER READY 
(2) 060236 100375 BPL READY :WAIT UNTIL READY 
(2) 900270 905737 164000 Tc" aaMTCM ; CHECK IF ERROR BIT SET 
(2) 800274 100005 BFL RTN !TF NO THEN RETURN 
(2) OOGE76 032737 011000 is4002 git ®11000,deMTST :IF YES, THEN CHECK IF EITHER & 

(2) :READ COUNT OF SINGLE TRACK ERROR 
(3) "HAS OCCURRED. 

(2) 009304 90100: BNE RTN 

(2) 900306 900996 TAPERR: HALT ;HALT BECAUSE OF TAPE ERROR 

(23 0390310 909207 RTN:; RTS pC IF YES, IGNORE AND RETURN 


GO1l 
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DMSUFA.P SIZER, MONITOR RELOCATOR, AND OTHER GOODIES. SEG cOCe 
1) -SBTTL SIZER, MONITOR RELOCATOR, AND OTHER GOODIES. 
(1) 091900 p =1000 
(1) 001000 012706 9900050" BEGIN: :SET UP STACK. 

(1) :SIZE C ORE "AND uPBSaTE T Re LITERALS OF “RESIDENT MONITOR 

<1) 001004 012767 00:072 178772 POINT TIMEOUT TRAP TO 3¢ 
(1) 001012 012700 174009 NOY +4000, RO ‘DETERMINE TOP OF CORE IN 1K CHUNKS. 
(1) 601016 905001 CLR 

‘1) 001020 062700 004000 1S: ADD #4000,R0 

(1) 001024 062719 oo0000 ADD #0, (03 ;REFERENCE UNKNOWN LOC. 

(1) 001030 995201 INC RI -IF HERE, NO TRAP OCCURRED. 
(1) 901032 022701 000034 emp #28. ,R1 :DONE 28’ TIMES? 

(1) 901036 001370 BNE 1$ :BR IF NOT. 

(1) O01040 062700 co49o0 ADD #4000, RO 

(1) OO1044 012767 OO00DE 176732 2: MOV 86,4 ;RESTORE ERROR TRAP. 

(1) 001052 oO2012e7 900010 CMP RL, #8. :8K OR GREATER? 

(1) OO01056 O02010 BGE :BR IF YES. 

(1) OO1060 O04567 o2064e2" ISR RE, MES : INSUFFICIENT CORE MESSAGE. 
(1) OO1064% 901435 NOCORE 

(1) 001066 000000 

(1) 001070 000777 BR : sLOCK IN H 

(1) 001072 012716 oco1044 2$: MOV #23, (6) : TRAPPED 10° HERE. EXIT 79 2 
(1) 001976 o00002 RTI 

(1) 001100 006301 4$: ASL sREADY TO TYPE CORE SIZE. 
(1) 091102 116167? 091236 o9co302 MOVB ReODE C1) AK+1 

(1) OO1L1O 116167 001237 990275 MOVB KCoDe+1(1), AK+2 : 
(1) OO1116 166700 d00ile SUB LIMIT+2,R ;SET UP NEW LOAD ADDRESS 
(1) 001122 o10001 MOV Ro. 

(1) 901124 010167 oo0652° MOV RI: RELCNT : SAVE IT AT RELTMP 

(1) 001130 Ole702 902624 MOV WSLITTS. R2 

(1) 001134 022712 177777 51S: CMP #-1, (Re) ‘END OF TABLE? 

(1) 00114 oo14de BEG 

(1) 001142 060132 ADD R1.a(R2)+ CORRECT FOR RELOCAT 

(1) 001144 900773 BR 

(1) : RELOCATE MONITOR TO TOP OF CORE. 

(1) OO01146 905001 bg: CLR Ri “WHERE PROGRAM STARTS. 

(1) 001150 016702 ooDdE0 MOV LIMIT+2, Re 

(1) 001154 ii2120 73: MOVB (1)+, (O}+ : RELOCATE ONE BYTE AT A TIME. 
(1) 001156 005302 DEC R2 

(1) 001160 001375 BNE 7$ * CONTINUE RELOCATION. 

(1) OO1162 O04667 oDD64e2” ISR RS, MES :TYPE TITLE AND CORE SIZE. 
(1) OOL16E 001330 NAME 

(1) 001170 O04567 oOD64e’ ISR RS, MES : TYPE RESTART ADDR. 

(1) 001174 oo14iE ARSTRT 

(1) 001176 016703 000136" MOV $COMC3, R3 

(1) O01202 004767 901222° JSR PC, ITOA 

(1) 001206 oO4S67 900642" JSR RS. MES ; TYPE FOR HELP MESSAGE. 
(1) COle12 o01460 FHELP % ) ty 

(1) 001214 004567 op0642" JSR RS, MES : TYPE THE HELP MESSAGE 

(1) O01e20 001547 MNINST 

(1) O01222 004767 oodede’ JSR PC, DELAY :WAIT A BIT. 

(1) 001226 0167€7 000136’ MOV SCOMC3,PC :GOTO RESIDENT MONITOR. 
(4) 001232 900000 900000 LIMIT: -LIMIT 

(1) 001236 930040 020440 O3104C KCODE: Beert "9123456789" 

(13 C0144 031440 oO32040 032440 

(1) 001252 023040 23440 oO34045 


HO 1 
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OMOUFA.P11 SIZER, MONITOR RELOCATOR, AND OTHER GOODIES. 
001260 034440 
O0lebe 030061 030461 9031061 ASCII = °1011121314151617181920" 


001270 031461 032061 O3e461 
001276 033061 033461 034061 


001310 O304%62 031062 031462 -ASCII *2le2e3e4eSe62728" 
001316 Q32062 O3e46e 033062 


001330 OS204S OY¥2le2 020120 NAME: .ASCII ““TRDOP - XXDP TR7SF MONITOR M-11-DMGUF-A 21-OCT-76" 


LON LOS ON LON LOIN EPO ES 


001402 Ne 0S2i03 033455 


OO1411 O40 QO2004O 000113 Ak: -ASCIZ 
001416 O5104S OS5iSCS O40S24 ARSTRT: .ASCIZ 
001424 O0S2i2e ses 042104 


001435 OYS C47111 O52eS523 NOCORE: .ASCIZ "INSUFFICIENT CORE’ 
001442 043106 O4151i O4e511 
041440 051117 


: K? 
*“ZRESTART ADCR: * 


001540 sade 04:536 022451 
001547 O4S OS204S 050131 MNINST: .ASCII’%«TYPE:* 
CO1SS6 O42045 041474 037122 ASCII °XF<CR> TO SET CONSOLE FILL COUNT’ 


OO1606 O46114 O41440 052517 
OO1E16 §O4204S 041474 037122 ASCII °%D<CR> FOR DIRECTORY ON CONSOLE, OR* 


Oe et et eet et eet eet et eet et eet et et et eh ee et ee ee et ae ee ae eet ee ee es es ee es ee es es ae ee ee ee ee es — eee 
oO 
Oo 
_ 
oo 
uw 
oO 
Oo 
uv 
iat) 
— 
~ 
o 


1 
001661 4S 027504 036106 -ASCII °%D/F<CR> FOR SHORT DIRECTORY ON CONSOLE, OF* 


ian an ian eam hae nan an Lam an cae ae can an ae tan an aan an an an an an ae ie ee ant ant at et ee 
eb be be be ee Be so be be = se ee a ee 


Oo 
oOo 
a 
on 
a 
o 
oO 
mn 
- 
-_ 
i=) 
Wu 
Oo 
ial) 
oO 
Oo 
“S) 
o 
oO 
<= 
“SI 
Ww 
oO 
o 


NN ONS 


001724 O47523 042514 020054 


OO146C OS204S 020117 O41101 FHELP: .ASCIZ °'%TO ABORT THE FOLLOWING HELP MESSAGE TYFE CTRL C (fC)%" 


TROP = XXDOP TR79F MONITOR M-11-DMQUF-A MACY11 27(732) O3-JAN-77 13:49 PAGE 1-7 


OMGUFA.PL1 SIZER, MONITOR RELOCATOR, AND OTHER GOODIES. 
( 201732 OS1117 
001734 O4204S5 046057 041474 -ASCII °%D/L<CR> FOR DIRECTORY ON LINE PRINTER, OF° 


oO 
=] 
tJ 
oO 
oO 
Oo 
oO 
ul 
— 
_ 
Lm 
uw 
oO 
Oo 
uw 
£ 
oO 
nm 
- 
i 
— 
™“ 


"902006 042055 046057 043057 ASCII °%O/L/F<CR> FOR SHORT DIRECTORY ON LINE PRINTER,° 


BoBoe nse td B2h1e3 ou7eb3 ASCII °%R COPY<CR> TO RUN COPY PROGRAN, ° 


002106 020.16 047503 O54S20 
002114 oOSC040 047522 051107 


OS4 
002125 O4S OeOle2? O44S06 ASCII °%R FILENAME<CR> TO RUN ANY OTHER PROGRAM. ° 


002176 O4604S 043040 046111 ~ASCII °%L FILENAME<CR> TO LOAD A PROGRAM ONLY’ 


002234 O40Se2 020115 047117 
002244 O5144S 041474 937122 -ASCII °%S<CR> TO START THE PROGRAM JUST LOADED,' 


002302 O52123 O46040 040517 
002314 pai O4YO44O 042104 -ASCII °%S ADDR<CR> TO START THE PROGRAM AT SPECIFIC ADDRESS’ 


002366 C41511 O40440 042104 
002400 C41445 043040 o46111 -ASCIT °%C FILENAME<CR> TO RUN A CHAIN,” 


LER LBR LD LS LO LRN LN NFR NFR EN OOOO i a eae oe ae, a ae ae ee ee ee ce, ee ee te se nt a et et 
0+ he ee ee ee eb be ee he ee be be bs ae be Be pe he hs he be he bs be ee 
ee ee et et eet et eet et et et et ee et et eet eet et eet et et ee eet eet eet ee es et as et a ee et a es ees ee es ee et ee ee ee a ee ae ee ee ee ee 
Oo 
oOo 
fw 
— 
o 
fu 
Al 
oO 
fu 
oO 
- 
ia’) 
ial) 
oO 
uw 
-_ 
-_ 
iat) 
oO 


dde422 Q51049 C47125 O4044C 


TROP - a TR7SF MONITOR M-11-DMQUF-A MACY11 27(732) 
SIZER, MONITOR RELOCATOR, AND OTHER GOODIES. 


OMGUFA 


A. 


ene 


tn an a 


Ot hh 8 bs he be eb ee be be ee he he se ee he he he hs se be bs ho 
St Bet Net Be Ne ee Nt et at et et et et et at te et ee et it a as a ee at a a et a ee a es es a ea ae es a es es as 


i i a el a a ee a ee ee ae ae oe ae oe ae eee ae a ae tae at a tat te et 


202430 


002706 


041440 
SY 


00 
002624 
000154’ 

70° 


177777 
oo90a0’ 


040510 
poe 


4) 
046440 
043105 


050114 


047111 
044506 
0 


042117 
051105 


022456 


SLITTB: srel 


-ASCIT 


-ASCIZ 


- EVEN 


ete 


PGAbYe2 


03-JAN-77 


"%C FILENAME / 


"REFER TO XXDP USER MANUAL MD-11-D29XA FOR ADDITIONAL HELF.x° 
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¥<CR> TO RUN A 


CHAIN IN QUICK VERIFY MOCE.° 


SE 


6 Anne 
@ cocSs 


KO1 
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OMSLFA.P NON-RESIDENT CODE SEG o010 


(1) .SBTTL NON-RESIDENT CODE 
(1) ooo000" CSECT 
(1) {DIRECTORY ROUTINE. 
(1) 00000" 005726 NRDIR: TST (SP )+ ;POP OFF 1ST STACK ELEMENT. 
{1) 000002" 012667 002410" MOV (SP) +, FILLCT GET FILL Cou 
(1) 000006’ 012667 001466" MOV (SP) +, CURDRV ;GET THE + CURRENT DRIVE NUMBER. 
(1) 099012" 012667 000136" MOV (SB }+. SCONES ; GET RES MONITOR RESTART ADDR. 
ae an ii foe Goa et are 
{i} Bbeeea Boeze> oorwe" 358 PC, SETI Bi ices NAME . 
(13 900030’ 105067 000030 CLRB = FSTMOD ASSUME NO FAST MODE SWITCH. 
(1) 000034* 004767 000034 JSR PC, NRGTSW ;GET SWITCHES. 
(1) 000040" 004567 002114" J5R RS; BCLEAR ;CLEAR NAME TO ?°S 
(i) 00044" o04506° 000077 090011 IFNAM, 
(1) 909052" 010565 177720 MOV RS, XFLMOD (RE) sINDICATE WILD MODE. 
(1) 000056° 004775 177755 JSR PC! aDRT (RS) G0 SUTPUT DIRECTORY. 
(i) G0006e" oDde07 RTS PC : RETURN. 
{i} 
(1) goo0e4* oo FSTMOD: : .BYTE 0 
1) o00d66’ EVEN 
\ 
(1) OOCO86’ 105267 177772 SETFST: INCB  FSTMOD ;SET FAST MODE. 
(1) Oo007e" Nod BR NRGTSW , 
\ 
(1) 900074’ 012701 op0144" NRGTSW: MOV BNRSWTB, RL ;POINT TQ NON-RESIDENT SWIT BLE. 
(1) 000100" 000167 o005se" IMP GTOKK G0 SET SWITCHES. 
(1) 900104" 016767 000030 001004" LPSW: MOV LPS, MREG ;CHANGE STATUS REG. 
(1) 000112’ 016767 000024 901000" MOV LPB’ MOUT :CHANGE BUFFER RES. 
(i) 000120" 052767 o00200 O02410" BIS 8200 FILLCT :MAKE FILLCOUNT NEGATIVE. 
(1) 000126’ 012702 000014 MOV #14, Re ;OUTPUT A FORM FEED. __ 
(1) 000132" 004767 oco020e" ISR PC, DELAY “WAIT FOR FORM FEED DONE. 
(1) Q0013€° d00756 BR NRGTSH :SEE ABOUT OTHER SWITCHES. 
(1) O00140" 177514 LPS: = 177514 LINE PRINTER STAT REG ADDR. 
(1) Oooise" 177516 LPB: 177516 ;LINE PRINTER BUFFER RES ACOR. 
(1) 900144’ NRSWTE: 
(2) 000144" ooo0g6" -WORD  SETFST ;DISPATCH ADDRESS FOR -F 
(2) 000154° O00104" .WORD LPSW Beeate BODRESS FOR “L_ 
(2) O00164" O00212" Hors RTEeC iD PATCH A FOR <i> 
fé) Q0017e" og0s4¢" “WORD © GTOK DISPATCH ADDRESS FOR <4) 
1) 900200' 177777 -1 : TERMINATOR. 
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DMGUFA.P11 NON-RESIDENT SODE SEG COL: 
(1) -SU8 TO TYPE FILE NAME. 
(2) 900202" et $TPNML: : 5 
(2) 000208" o04467 902040 JSR RY, SAVOY sSAVE ACLS 0-4 
(1) 000206" 016703 902156" MOY $TKNAM, R2 :ADDR OF “NAME TO R32. 
(1) 900212" 905001 CLR Ri : CHAR COUNT ER. 
(1) 000814" 112302 1$: MOVB (R3)+,Re2 :GET A CHAR. 
(1) 000216’ 004767 oo06s6” 25: ISR PC, MES! TYPE IT. 
(1) 000222" 905201 INC Ri UP CHAR COUNT. 
(1) 000224" O201e7 op0006 CMP R1, #6 :DONE §? 
(1) 000230" 103771 BLO 1$ :8R IF NOT YET. 
(1} 900232’ 101003 BHT 33 'BR IF MORE THAN 6. 
(1) 000234" 112702 oo00ss MOVB = #". , RE :SIX. TYPE A COT. 
(1) 000240" 000766 BR 25 :GO TYPE THE DOT. 
(1) goce42" 120127 oo0c1e2 3$: CMPB sR #10. :DONE 10? 
(1) 909246" 153762 BLO 1 :BR IF NOT. 
(2) 000250" 604767 ooecse" JSR PC, RSTOY :RESTORE REGS 0-4 
(1) 00254" Se01e7 oco7se" JMP TAB -GO TAB AND RTS PC 


ee ee ee ee ee ee ee ee ee ee ee ee ee, ee ae ee ae 
0 b+ b= PU) 0 be 8 pe bh bb bs pe ps bs bs pe bs ps ph ps ph —-frn— 


ae et et a et et et et et a a et es es et ee ee a ea a es aes as es 


ne 


O1 


TROP - XXDP TR79F MONITOR M-11-DMGUF-A MACY11 27(732) O3-JAN-77 13:49 PAGE 1-11 
FR.PLL BINARY TO DECIMAL CONVERT AND TYPE SUBROUTINE 
.SBTTL BINARY TO DECIMAL CONVERT AND TYPE SUSROUTINE 
000260" BCDCY:: 
000260’ o04467 oOOe040" JSR R4, SAYO4 :SAVE REGS 0-4 
p00264" 012504 MOV CR5)+,R4 ; NUMBER OF DIGITS 
000266’ 012700 000374° MOV #DECTAB, RO “TABLE OF DECIMAL NUMBERS 
000272’ 90S046 CLR -(SP) ‘STACK WORD FOR INDICATOR. 
oc0274’ 905740 BCD1: TST -(RO) -STEP TO THE LARGEST DIGIT 
00276’ 905304 DEC R4 
000300’ 003375 BGT BCD1 
000302" oosoo2 BcD2: CLR Re :R2 IS TO RECFivE THE GUOTIENT 
000304’ 012001 MOY (RO)+,R1 : THE DIVISOR 
900306’ 001422 BEQ BCD3 ‘EXIT IF ZERO 
090310’ 160103 BcDS: SUB RI, R3 ‘DIVIDE BY SUBTRACTING 
000312’ 103402 BCS Bcoy 
000314’ o0S202 INC R2 ;UP THE QUOTIENT AFTER EACH SUS 
000316’ 000774 BR BCDS 
000320’ 060103 BCD4¥: ADD R1,R3 ; GONE TOG FAR 
000322’ 005702 TST R2 OTIENT =0 
000324’ 001005 BNE BCD& NO 
000326’ 005716 TST (SP) ‘LEADING ZERO'S? 
000330’ 001003 BNE BCD6 ; 
32’ 012702 opco4o MOV #40, Re YES PRINT SPACE 
00336’ 000402 QR BCD? 
00340’ O0S216 BCDE: INC (SP) ;NOMORE LEADING ZERO’S 
000342’ 062702 oopo’o ADD #°0,R2 MAKE IT ASCII 
000346’ 004767 000776’ Bco7: JSR Pc, SHROUT : PRINT 
000352’ 000753 BR ache 
000354’ 005726 QcD3: ST (SP)+ :POP INDICATOR WORD. 
000356’ 000167 002236’ IMP RESRS :GO RESTORE REGS O-4, DC RTS RS. 
000362’ 023420 o01750 o00144 “WORD 10000..1000.,100.,.10.,1 
600370’ O60c!2 90005) 


S00374" O00008 DECTAB: .WORD 0 
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DMSUFA.PL1 DATE UNPACK AND TYPE SUBROUTINE . SEG 00:32 
(1) .SBTTL DATE UNPACK AND TYPE SUBROUTINE 
(1) 000376° 004467 oO2040" DATUPK: : ISR RY, SAVOY -SAVE T HEN 
(1) 000402’ 012704 900105 MOV #69. RY :BASE YEAR IS 1970 
(1) 900406’ O42703 100000 BIC #100000, R3 ; GET RID OF ZoNT IG BIT 
(1) 900412" O0S204 DATUP1: INC RY ; SEE! 
i) eaiee gesery 07S a i dere 
(1) 000422’ 062703 001750 ADD #1000. ,R3 sant TOO FAR 
te D004e6 16767 go0034 oo00&& oy we8. ,ORTTAR+E eee ese YEAR. 
{ , 
(1) rater R856 2 Bie Oat Uy ‘BeAr EYE NOT. 
(1) 900442’ 005267 opg0S4 INC DATTAB+2 YES. CORRECT FOR FEB. 
(1) OOO446’ 012700 oo0520° DATUPY: MOV NDAT TAR, RO ; 60 FINO WHAT MONTH 
(1) O004S2’ 020310 DATUP3: CMP (RO) ‘LESS THAN WHAT THIS MON HAS 
(1) O00454* 003402 BLE Ratips :YES, FOUND THE MONTH 
(1) O00456’ 162003 SUB (RO)+. R3 NO, ADVANCE MONTH 
(1) @00460’ 000774 es DATUPS z 
(1) QO0462’ 004567 177572 DATUP2: JSR RS,BCDCV :PRINT OUT THE DAY FIRST 
(1) OO0466’ OO0002 . WORD 
(1) 000470’ 016067 090030 ococoo4 MOV 24. (RO), DATUPS :POINT TO MONTH NAME 
(1) 000476’ 064567 o00642" JSR RS, MES :AND PRINT IT 
(1) ocOSo02’ o0c000 DATUPS: .WORD 0 
(1) 000504" 010403 MOV RY,R3 ;NOW THE YEAR 
(1) 000506’ O04S67 177546 ISR RS; BCDCY !PRINT THAT OUT 
(1) 900512’ o00002 WORD 
(2) 000514 000167 oDen2e2" IMP RESR7 :GO RESTORE REGS 0-4, DO RTS PC. 
1) p005e0 g0037 000034 000037 DATTAB: .WORD 31.,28.,31..30. 
(1) 000530’ 000037 000036 000037 .WORD 31.,30.,31..31. 
(1) 000536’ 000037 
(1) 00540’ 900036 000037 oD0036 .WORD 30.,31.,30..31. 
(1) 000546’ 000037 
(1) 000550° 000800” SJAN 
(13 000552’ 000606" SFEB 
(1) 900554 000614’ 3MAR 
(1) 000556’ 000622" SAPR 
(1) 900560’ 000630’ SMAY 
(1) O00S6e’ 000636’ $JUN 
(1) O00564* 900644" SJUL 
(1) 000566’ 000652” SAUG 
(1) 000570’ 000860’ $SEP 
(1) 900572’ OO0Db66’ $OCT 
bere: Bees ae 
(1) BBR eaR aeaee 047101 OO005S SJAN: ‘\ASCIZ ’-JAN-’ 
(1) Q00606’ 043055 041105 OCO0SS S$FEB: .ASCIZ '-FEB-’ 
1) 000614" O¥BHSS 051101 oo00ss SMAR: ASC1Z MGR 
1) : -_ = 
't} Boose’ pupaee Beddé? BooDEe By; TAeCTS Maye 
(1) 000636’ O4S055 047125 o00055 $JUN: :ASCIZ °-JUN-’ 
(1) 9QO0B44’ O4SOSS 046125 OOODSS SJUL: .ASCIZ ‘-JUL-’ 
(1) 000652’ O40455 043525 55008 SAUG: BSCIZ ’-AUG-" 
(1) Q00660" O5i455 050105 00055 §$sEP: iASCIZ '-SEP-° 
‘1) Q00666’ O47455 052103 OO00SS SOCT: .ASCIZ '-OCT-' 
(1) 900674" 047055 053117 COO0SS $NOV: .ASCIZ '-NOV-’ 
‘1) 000702’ o4205S5 O4150S O000SS $DEC: .ASCIZ °*-DEC-* 
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OMSUFA. PLL DATE UNPACK SND TYPE SUBROUTINE 


<3) EVEN 


02 
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SEG 0014 


TROP 
DM 


(1) 
()) 


‘yy 


‘ 
id ‘ 


, o~ 
+ +b +p <p 
at ha 


np - 
SUFA. 
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Pll CHAIN BUF 


090000" 
ococcs’ oto4o0 
oodcod" 


RUNBUF: . 


C 
O3-JAN-77 13:49 PAGE 1-14 
CHAIN BUFFER 
RUNBUF 


256. 
PAK & UNPAK TR BUF 
TRBF 


NN = 


ON ON EN NEN EN FN FN ER FRESE OS 
Os B= ee eo he hs he ee be se ee 


tt tt et tt tt tt at tt a a a a es a ee a ee es as a es as 


LON LON LION RN RN LON FON RN DN BRN FR EON RIS FR ER ER ERRNO ENERO 


FA.P11 


000000’ 
000050" 


000050’ 


006136’ 


000140’ 
000142" 


000144" 
000150’ 
c00154’ 
000162’ 
000166’ 
no0200" 


co0e0e’ 


Oe 
L.. 
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COMMAND DECODER, INI, AND DELAY ROUTINES 
.SBTTL COMMAND DECODER, INI, AND DELAY ROUTINES 


090900" 
o0c0e4 


OOSO4E 


000207 


004767 


00140" 


005027 
000000 


012706 
004567 
003400’ 


OO4567 | 


000761 


OOSO46 
0S3 


000207 


000u60" 


000736 
009042 


000121 


OOOCO&E 
001720 


o00S26 
004370 


ooc0so’ 


001740 
ocoo00 


O004S4 


000630 
090346 


.CSECT RESMON 
“PROGRAM STACK 
RESTCK: .BLKW 20. 
SPBOT: 


RESTR 

SREL TL: ‘Moy BRSTRTL, -(B) 

RSTRT1: JSR PC, CROUT2 
TST 2 


DEC (PC)+ 
PCOUNT: .WORD 0 

BEQ COMCON 

RTS 


“ERROR REPORTING ROUTINE 
tomcol: JSR PC, DELAY 


JSR RY; SAVOY 
MOV S'RO 
JSR RS’ MESO 
TSTB = RUNID 
BNE COMCON 

V (PC)+, PC 


MO 
$COMC3: COMCO3 
-CHAIN MODE IS CLEARED HERE. 
SOMCO3: CLR (PC)+ 

CHN: “WORD 


“WHERE EVERYTHING STARTS 
SOMCON: MOV #SPBOT, SP 


JSR RS,BCLEAR 
$REL1: CLRBEG,O,CLREND-CLRBEG 
COMCOe: fs RS,MES 


JSR RS, INPUT 
COMCOS: Hy PC, GTOK 


DELAY:: CLR 
1$: 


; END - PASS wae 2k MODE ei POINT. 


;CLEAR T BIT. 
;WILL RTI TO RSTRT1 


‘CHECK FOR CTL C. 
; ABORT CURRENT PROGRAM? 


Y 
: QUICK VERIFY MODE? 
R IF YES. OO NEXT CHAIN ENTRY. 
FALL a7, DONE? 
; PASS COUNTER. 


YES. 
NO. RETURN TO CURRENT PROGRAM. 
WAIT A BIT. 
‘SAVE REGS 0-4 
:GET ADDR OF ASCII MESSAGE. 
fs Ra “~ 


COMMAND? 
;BR IF YES. CONTINUE CHAIN MODE. 
;GO TO COMCO3. 


;CLEAR CHAIN MODE. 
;CHAIN MODE INDICATOR. 


;SET UP THE STACK 
:CLEAR BUFFERS, VARIABLES. 


;TYPE A DOT IST. 


;GO_ FETCH A eer a ans 
; CHECK COMMAND SYNTA 


;TILL EVERYTHING IS DONE 


;DELAY A LITTLE BIT. 


;RESTORE STACK. 
:OONE. RETURN. 


O02 
L. 
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OMGUFA.P CHAIN SETUP ROUTINE 
(1) .SBTTL CHAIN SETUP ROUTINE 
(1) 900214" aa DOIT: CLR (PC)+ ;AT FIRST BLOCK. ALSO avn GYMODE . 
(1) 000216’ 000 BKCT: .BYTE Q :CONTAINS CHAIN BLOCK 
(1) BOO 17° 000 QVMODE: .BYTE 0 : QUICK VERIFY INDICATOR: 
‘1) Q00220° O1e767 041503 004266 MOV #"CC, IFNAM+6 ‘SET UP A CCC EXTENSION. 
(1> Q00226’ 112767 000103 O042b2 MOVB #’C, [FNAM+8. 
(2) 000234’ 004767 001206 JSR Pc, SETIN ;SET INPUT DEVICE. NAME NEEDEC. 
‘1) Q00240° 004767 900302 JSR PC, GTSW :GET SWIT 
a 000244" OO4S67 eee CDO1I? SRELS Es 0B, om SYREN sTco0e ;COPY INPUT DDB TO BATCH DD8. 
{ ’ : , : 7 
it} BBB58E TBe6e?" 997788 BREE: GREBDE. NDE WANT FIRST BLOCK OF FILE. 
{1) O0026e’ 010546 002: MOV RS. - t -# ; SAY , 
(1) BOOS 4’ 004 001614 . «Sk ce BOY ;BATCH DDB TO INPUT DOB. 
(1) Q00270° OO4400° O003234* 000117 SRELS: INDDB, it b BYEEND-BTC DDB 
(2) 000276’ 004467 001536 JSR SAVOY ;SAVE REGS 0-4 
(1) 000302° 004767 002356 JSR Bc INT] INIT INPUT. 
(2) 000306’ 004767 001540 JSR PC, RSTOY RESTORE REGS 0-4 
(1) O0031e’ 116703 177700 MOVB BKCT,R3 :GET THE REQUIRED BLOCK NUMBER. 
(1) 000316’ 105067 177674 CLRB BKCT ; 
(2) 000322’ D003: 
(2) Q0032e’ 004767 001370 JSR PC, READL ;READ LINKED FILE BLOCK. 
(1) Q00326’ 004567 001552 JSR RS, BMOVE ; INPUT BUFFER TO BATCH BUFFER. 
(1) 000332’ 000000’ 003400’ 001000 S$REL4: RUNBUF, BUF 512. ie 
(1) peed, pl 767 heal 177574 S$REL13: MOV sRUNBUF +2, CHN ;SET CHAIN MODE WITH FOOR Nd 1ST CHAR. 
(1) 46’ 012767 (76 902764 MOV #51 G. , RNBK ;# OF CHARACTERS IN BUFFER 
(1) Q00354" 105267 177636 INCB BKCT i INCR # OF BLOCKS READ. 
(1) 000360’ 005303 DEC R3 ;READ THE WANTED BLOCK? 
it ort 001357 oo ce as iBR IF NOT. 
(i) Boose" BAERS? RCKSUM: CLR {Be} ‘Checkcum ie BATCH BUFFER. 
{1} 000370° 900000 RCKSM: .WORD QO 
(13 900372" 012703 9000000" SRELI2: MOV #RUNBUF , R3 GGT ADDR OF BATCH BUFFER. 
(1) Q00376° O1e704 999400 MOY 8256. ,R4 WILL DO 256 WORDS. 
(1) Q0040e* 062367 177762 1$: ADD (R3)+:RCKSM CHECKSUM A WORD. 
{13 000406’ 005304 DEC RY :ALL DONE? 
(1) 0904i0" 001374 BNE 1$ ;8R IF Ne an 


600412" 000207 RTS PC YES. RET 


Fe ae at 


Cr i ee ee ee ee ee 
b+ bb b= bb b—2 bs = Bs 3 bb be bh bs he pe eo pe ps Be 


“NON Os 
at ee et a et ee ee ee ee a ee ee a ee ee es ee es es 


rN 


; 


177744 
177736 
177734 


177500 
002672 
177610 
002662 
177460 
177454 
O0264E 


177554 


o00le 


77420 
O2ble 


a “A MACYL1 27(732) 
N ROUTINE 


Ai CHAIN EXECUTION ROUTINE 


Oe 
03-JAN-77 13:49 PAGE 1-17 


CHAIN: CMP 1 :AT START OF KYBD BUFFER? 
BNE CHAINO :BR IF NOT. 
MOV RCKSM, -(SP) SAVE BATCH CHECKSUM. 
JSR PC, RCKSUM ; RECHECKSUM THE BUFFER. 
CMP RCKSM, (SP) + : MATCH? 
BEQ CHAINO :BR IF YES 
MOV CHN, -(SP) ing. SAVE CHN 
MOV RNBK. - (SP) ;SAVE R 
JSR : GET Thee BLOCK. 
MOV (SP)+, RNBK ‘RESTORE RNBK. 
MOV (SP), CHN “RESTORE CHN. 
CHAINO: MOV R3 NEXT COMMAND 
MOV RNGK 4 : COUN 
CHAINI: DEC 4 
BPL CHAIN -BR IF POSITIVE 
ISR ¢,001 -NO. NEED NEW SUFFER. 
BR AINO 
CHAIN2: MOVB = (R3)+. Re :GET A BYTE 
BEQ COMCO3 :BACK TO COMCC3. 
CMPB séRR2, B12 !LINE FEED? 
BEG CHAIN : DISREGARD IT. 
MOV R3, CH 
Moy R4’ RNBK oi bo 
RTS PC ‘RETURN. 
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MOUFA. Pil 


oes 


+o 


000530° 


o00S4e2" 
000546" 
BobEss® 
000556" 


. 900560" 
o00564° 


Ph ae ee ee 
2 
ee ee ee 


* i a ee a ek ae eo SOO EN EN FO FO ENO FS 
+= b+ b= bb = b= = b= = bs be be be bo bo + b= a be ee 


000606" 
000610’ 


000612" 


a ae ae ae ee 


000622’ 


009624" 
900630’ 
000636’ 


et et et et et a a ee ee ee es es es ees es 


es 


COMMAND DECODER 


004767 OO0&S4 
010267 903760 


* 900402 


105267 177451 


Bigsas 880874 
060201 


016700 ocO0034¢ 
012104 


001356 ’ 


* 004567 


l 
xX 
179260 

547111 S4r526 

661457 600157 


042115 


MACYL1 276732) 
— 
SETCNT: JSR 
MOV 
5R 
SETGV: INCB 
GTOK: GTSW: 
fey 
GTOKK: MOV 
ADD 
GTOKX: MOV 
GTOK1: MOV 
MOV 
GTOKe: CMPB 
BNE 
GTOK3: TSTB 
BNE 
MOV 
GTOK4: ADD 
CLR 
JMP 
GTOKY MOV 
ADD 
CMP 
BNE 
* ASCIZ 


EVEN 


O3-JAN-77 13: 


COMMAND DECODER 


Re, ICOUNT 
GTS 


QVMODE 


H OMTAB,R1 
LCNT, Re 


yt RO 
We 


J$ RS ,COMCO] 
*INVOMD SW! 
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;GE7 THE COUNT. 
;STORE IT. 


;SET QV MODE. 


ESE RUIN gangs Here 


CORRECT R1 FOR RELOCATION. 


;GET STRING POINTER 


:GET DISPATCH ADCR. 
GET POINTER TO NEXT ENTRY. 


:MATCH THE CHARACTER? 
;LAST a i ENTRY? 


THE OTHER CHR'S 
INTER. 


; 0 
CORRECT FOR RELOCATION. 
;DISPATCH WHERE NEEDED. 


;POINT TO NEXT ENTRY. 
: CORRECT FOR RELOCATION. 


:FILLED? 
:BR IF YES. KEEP LOOKING. 


;REPORT INVALID 


COMMANC “SW 


~ mms 


SEG CC:$ 


O02 


| wa 
TROP - XXD° TR79F MONITOR M-LI-DMQUF-A MACYL1 27(732) O3-JAN-77 13:49 PAGE 1-19 : 
OMSUFA.PLI MESSASE ROUTINES SEG oo20 
(1) ¥ .SBTTL MESSAGE ROUTINES 
(2) ooog4e” MES:: 
(2) 000642’ 004467 001172 ISR RY, SAVOY :SAVE REGS 0-4 
(1) O00846" O12500 MOY’ (RS)+,RO iE SSAGE BUFFER TO RO 
(1) QO06S0° 062700 ADD (PC)+/RO ORRECT FOR RELOCATION 
(1) 000652’ 900000 RELCNT:: .WORD' 0 : RELOCATION FACTOR. 
(1) 990654" 112002 MESO: MOVB  (RO)+,R2 :PICK UP’ ONE CHR TO Re 
(1) 000656’ 001525 BE GEXO4 R IF O. 
(1) 000660’ 004767 ocD002 ISR PC, MES1 ‘85 OUTPUT CHAR. 
(1) 000664" 000773 ele MESO ;GO_FCR MORE. 
(1) OO0666’ 120227 900011 MES1: CMPB Re, #11 ? 
(1) 000672’ 001427 BE TAB :BR IF YES TO DC A TAB. 
(1) O00674’ 120227 opoD4s CMPB sé, #% 
1) 000700" 001036 BNE CHROUT ‘OR IF NOT. 
(1) 900702’ 910246 CRLF:: MOV Re, -(SP) :SAVE Re. 
(1) 000704 O12702 ooso1s MOV #5015. R2 : OUTPUT CR. 
(1) 090710" 004767 900062 JSR PC, CHROUT 
(1) BOOSIE’ Bouse? ggonss SER” Re CHROUT sputtesiblnecsntabegate 
(1) OG0722" 116702 90146 MOVB  FILLCT,Re :GET READY FOR FILLER CHARS. 
(1) 600726’ 005077 oo0046 18: CLR IMOUT “FILLER IS 0. 
(1) 000732’ 004767 900044 JSR PC, CROUTI 
(1) 900736’ 005302 DEC Re ; DONE? 
(13 000740’ 003372 BGT 1$ R IF NOT. 
(1) 000742" 005027 CLR (PC) + ; CLEAR THE CHAR COUNT. 
(1) 000744 OD00G0 CHRONT: .WORD :CHAR COUNT VARIABLE. 
(1) 900746’ Oleso2 CRLF1: MOV (SP)+,Re RESTORE Re. 
1) 009750" 000207 RTS pc Dole. RETURN. 
as 
(1) - TAB SUBROUTINE. 
(13 900752’ o10246 tap:: MOV Re ~ (SP) R2. 
(1) 000754" O1e702 ooo040 1$: MOV “4 40,R Shacks Do THE TABBING. 
(1) 000760" 004767 oOfco12 JSR Cty SOUT “OUTPUT A SPACE. 
(1) 000764" 142767 000375 177752 BICB 10. CHRCNT : SEE tF DONE. 
(1) 900772" 001370 BNE 1$ -BR IF NOT DONE. 
oe 000774’ 000764 BR CRLF1 :GO EXIT. 
,1) 
(1) -SUB TO OUTPUT CHARACTER TO CONSOLE OR LINE PRINTER 
(1) 000776" 110237 CHROUT: : MOVE ——- Re, ACPC) SOUTPUT CHAR. 
(1) O01990° 177566 MOUT: .WORD 177566 
(13 001602" CROUTL: 
(1) 001092’ 105727 TSTB. = AL PC) + :WAIT FOR READY. 
(1) OO1004" 177564 MREG: .WORD 177564 
(1) 001006’ 100375 BPL CROUT1 :BACK IF NOT READY. 
(£3 001010’ 105267 177730 INCB = CHRCNT :UP CHARACTER COUNT. 
(1) 601014" 004767 OCo0116 CROUT2: JSR PC, CKYBD ‘CHECK KEYBORRD. 
(1) 951020" o0d207 RTS PC sEXIT.NC_CH 
(1) 001022" 900470 BR GETCR! :CHECK FOR CTRL C 


sO re 


PN EN EN ERO EN OE 


tn tae Tame in ae an, aan 


tn an 


NNN 


LLNS LN EN LN LOS NEN FR FRR LR EN FRR FR FR FRE EN on a 
++ 0 b+ & + bh bb 0 bb PU + 8 8 be be 6-+ = b— b+ bb be LL = 


Se et et et eee et et et ee et ee et ee ee et ee es et ee et et as a et ee a es a ae es a es et ee ae a ae a as est 


NNN 


ee 


001924" 
001024" 


obidse” & 
34’ 019001 


, 


0 hh et he ee + pe be pepe pe 
Ww WwW 
ial 
- 
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NPUT ROUTINE 


04467 
12700 


004767 


004767 
000167 
105737 


* 000207 


’ 005767 


Bos364 


000129 
000141 


000172 
000040 
000177 
occois 
177562 


ooceale 


177550 
001100 


sti 
176754 
177220 
177734 
ooco03 
176720 


MACY11 27(732) 


INPUT: 
GETIN: 


GETINO: 
GETIOL: 
es: 


38: 


1$: 


GETIOE: 


GETIO3: 
GETIO2: 
GETI11: 
GETIO8: 


CKYBD1: 
GETCHR: 


1$: 


SETCRI: 


.SBTTL INPUT ROUTINE 
#8utéhep gyPUT °° ® 


02 
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RY, SAVOY 
#KBUF , RO 
RO,R1 


PC, GETCHR 
Re, #141 


Rl, (Pc)+ 
PC, CRLF 
RESRS 
a(PC)+ 


acres, Re 
#177600,R2 
#2, (SP) 


CHN 


b8 CHAIN 
GETCRI 
PC, CKYBD 
1$ 


R2, #2 
area at 
SCOMCS, PC 


JSR 
+ 


RS, INPUT 
Be NF MESSAGE TO BE TYPED PRICE 


g 


: 


; SAVE REGS 90-4 


; INPUT BUFFER 


;SAVE THE ADDRESS 


;GET A_CHARACTER 
LESS THAN LOWER CASE A 


:BR IF 

HIGHER THAN LOWER CASE 2? 
:BR IF YES. 

i NAME ne UPPER CASE. 


STORE IT. NOT SPECIAL CHAR. 
RETURN? 


QUITTING TIME 
;ECHO THE CHARACTER 


;CONTINUE I 


sRU YEP EGH aLrFER EMPTY? 
CET’ THE LAST CHR 


AN ND ECHO IT 
ORE 
‘POINT 


KEYBORRD POINTER. 


;GO RESTORE REGS 0-4, DO ATS RS. 


;KEYBOARD ACTIVE? 


;8R_IF NOT. 
:GET CHARACTER. 


;CLEAR OUT JUNK BITS. 
Pete CHARACTER IN SUFFER RETURN 


:IN CHAIN MODE? 


4 NOT. 
: YES. ob? CHAR FROM CHAIN FILE. 
;WAIT FOR gine hg 


; LOOP 8 YOU GOT 


:CTRL 
:BR TF’N NOT. 


sYES. TIME TO 


OnirT 


Wweis« 


Lf TOO. 
QO START OF KEYSORRD BUFFER. 


ONE. 


TO INPUT 


iv 


a 
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DOMSUFA.PL1 ERROR MESSAGE ROUTINES. . 


(1) -SBTTL ERROR MESSAGE ROUTINES. 

(2) 001216° CO4S67 176566 DEVERR: : SR RS,COMCOL ;REPORT DEVICE ERROR. 
‘3? OCleee* 042504 O4eS26 051122 -ASCIZ ‘DEVERR’ 

<i> 001230" CO 

62) 001232" EVEN 


TROP = XXDP TR79F MONITOR M-11-DMQUF-A 
ITOR SUBROUTINE 


ial Det 


wie 


ee, 


SFO ON FO ON ON FN ON EO NS 
>= TUT b= 0 = bb 8 0 be a 


FR.PLL 


Ne Nt et ee et es et ee ee ee ee es 8 ee es es 


001232" 


001302" 
001302" 


004467 


000762 
000167 


CO0&0e2 
000006 


OCOD 
177520 


MACY11 27 


ITOAR:: 


ITOAL: 


-SBTTL te Sean 


(732) 


SW 
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; BINARY TO ASCII 
;1A 


#6, R4 
Re 

IT AR. 

PC, AnRout 
TToAe 


ROUTINE 
KES WHAT’S IN R3 AND SHIFTS THREE ate INTO Re 
yaHen SS ke ROUTINE TC OUTPUT THEM 


;1 GET a to WHEN I CON’T 
D0 ONLY SIX TIMES 
WHERE THE DIGITS GO 


;MAKE IT ASCII 
oe a 

i TE NOMORE TO GO 

;GET RID OF OLD STUFF 
: SHIET COMBINED 
jTHREE TIMES 


IS 
ACTUALLY FASTER 
: AND +f. wt oe 
: THAN A DO LOOP 


: KEEP BOING. 
;G0 RESTORE REGS 0-4, OO RTS PC. 


SEG c022 


Oe 
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Dp .SBTTL GETNUM/ATOI SUBROUTINES 

(i) 

{1} 901306" 016700 177612 GETNUM: MOV KBPTR, RO «GET STRING POINTER. 

(1) O01312° 005001 GTNM1: CLR Ri : DATA 

(1) 001314" 905027 CLR (PC)+ 

(1) 021216’ 900000 YES: .WORD 0 

(1) 001320’ 112002 2s: MOVB  (RO)+,R2 -GET A BYTE 

(1) 001322° 120227 ooo04o CMPB se R2. #40 ; ? 

(1) 001326’ 001771 BEQ GTAMI ;YES, IGNORE IT 

(1} 001330’ 122702 oopoo15 CMPB s«aw#15,, Re CR? 

(1) 001334 001417 BEG 3$ : YES, RETURN 

(1) 001336’ 120227 opc0E0 CMPB se, #0 ;LOW’ LIMIT 

(1) 001342" og2414 BLT § LOW 

(1) OO1344’ 120227 op0067 CMPB  =s-«R2 #7 HIGH LIMIT 

(1) 001350’ 003011 BGT 3$ :TOO HIGH 

(1) 001352’ 006301 ASL R} SHIFT OLD STUFF 

(1) 001354" 006301 as. Ri :3 TIMES LEFT 

(D) 001356" 606301 RSL Rl ~ s1.E. MULT. BY OCTAL 10 
, i 

(1) 001362" 162701 opo06C SU #70,R1 abe cry rio oP ASCII STUFF 

(1) 001366’ 105267 177724 INCB = YES ire 

(1) 001372’ 000752 BR 2$ : MORE, LORE 

(1) 001374" 3$: 

(1) 0601374" 905300 GTNMO: DEC RO 

(1) 001376’ O10067 177522 MOV RO, KBPTR :SAVE STRING POINTER. 

(1) 001492" 105767 177710 GTNUM1: TSTB YES 

1) 001406’ o00207 RTS PC : NOMORE 

(i) “DECIMAL ASCII TO BINARY CONVERT SUBROUTINE. 

(1) 001410’ 916700 177510 ATGI: MOV KBPTR, RO :POINT TO STRING 

(1) 601414 112003 ATOI1: MOVB (RO)+ "R3 :GET DIGIT. 

(1) OO1416’ 162703 ooooEo SUB #°0.R3 :CONVERT TO BINARY 

(1) OO01422" 100764 BMI TNMO :NOT A DIGIT. 

(1) O01424° 020327 000011 CMP R3, #9. :CHECK UPPER LIMIT. 

(1) 001430’ 003361 BGT GTNMO :TOO HIGH. 

(1) 001432" 006302 ASL 

(1) 001434" 006302 ASL Re 

(1) 001436’ 060302 ado R3,Re sALL DONE. 

(1) 061449" o00765 SR aTori 


Oe 
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(1) SBTTL DEVICE SETUP ROUTINE, INPUT INIT ROUTINE 
(1) o0144e" oOso46 SETI: CLR (SP) s INDICATE NO NAME. 

{1) OOl444’ OOO4O! BR OVSET 

(1) O01446’ 010746 SETIN: MOV PC -(SP) s INDICATE NAME NEEDED. 

‘1) 901450" 012705 DVSET: MOV (PC) +, RS ‘INPUT DDB ADDR TO RS. 

(1) 001452" 004462" $IDDB:: .WORD INDEV 

(1) 001454" 016746 177172 MOV RELCNT, -(SP) :PUT RELOC FACTOR IN STACK. 

‘1) OO01460" 012700 Oo46S6" SREL16: MOV WOE VTAB, RO :GET DEVICE TABLE ADDR. 

(1) 001464" 062700 ADD (PC)+,RO :ADD OFFSET FOR DESIRED DEVICE. 
(1) 001466’ 000000 CURDRV: .WORD 0 “HOLDS CURRENT DRIVE # TIMES 2. 
(1) 001470’ 011000 MOV (RO), RO ‘GET DEVICE SET UP ADDR. 

(1) 001472" 061600 ADD (SP)'RO ;CORRECT FOR RELOCATION. 

(1) OO1474" 094710 JSR PC (RQ) Ser u P DEVI ce 

(1) 001476" 061600 ADD tAORRECT PARAM ADDR FOR RELOCATION. 
(1) 001506’ 010067 ooD006 MOV na shEL742 

(1) 901504" 904567 000374 JSR BMOVE sMOVE DEVICE INFO TO DDB. 

(1) 001510" 004436’ 060000 opo0SO S$REL7: INBOOT, open IFNAM-INBOOT DEST, SOURCE, COUNT. 

(1) 001516’ 016703 177766 ¥ MOV ° SRE Rel? 7,R3 

(1) 001522" 012701 o00011 MOV #9. ;NUMBER_OF ENTRIES TO RELOCATE. 
(1) OO1526" 061623 S$: ADD tp)" (pg) ‘RELOCATE ENTRY. 

(1) 001530’ 005301 DEC Rl : DONE? 

(1) 001532’ 001375 BNE S$ :BR IF _NOT. 

(1} 001534" O62665 oo0020 ADD (SP) +, XDR(RS) !ANOTHER ONE NEEDS IT. 

(1) 001540" 005726 TST (SP )+ ‘NAME NEEDED? 

(1) 001542’ 001531 BEQ RESR7A :BR IF NOT 

(1) 001544" FILNAM: 

(1) 001544" o94S67 900344 ISR RS, BCLEAR :CLEAR NAME AREA TO BLANKS. 
(1) 001550’ 004506’ OOOD4O O09006 SREL3: IFNAM,40,6. 

(2) 001556’ FNAM3: 

(3) O01556’ o04467 oD0256 JSR R4, SAVOY “SAVE REGS 0-4 

(I) 001562" 016700 177336 MOV KBPTR, RO :KYBD BUFFER POINTER TO RC. 

(1) 001566’ 012704 o04S06° SREL2: MOV #IFNAM, RY 

(1) 001572" 012703 oo0006 MOY #6. R3 ;UP_TO & DIGITS FOR NAME 

(1) 001576" 112002 FNAM1: MOVB  (RO)+,Re GET A CHARACTER. 

(1) 001600’ 120227 000077 CMPB sew"? !QUESTION MARK? 

(1) 001804" 001003 BNE 1$ :BR_IF NOT. 7 

(1) 001606’ 010565 177720 MOV RS, XFLMOD(RS) ‘SET FILE MODE INDICATOR. 

(1) OO0l612’ 000416 BR 

(1) OO1614° 120227 ooo015 1: CMPBs«aR2,, #1 CR? 

(1) 001620’ OO1411 BEQ 25 :BR IF YES 

(1) 001622" 120227 oooo40 CMPB sé, BHO : SPACE? 

(1) 001626’ 001763 BEQ FNAML : BR é YES. 

(1) 001630’ 120227 000066 CMPB =s-«R2,, 8 ‘LESS THAN 0? 

(1) 001634" 103403 BLO 2 ‘BR IF ves. Qt ALPHA-NUMERIC. 
(1) 001636’ 120227 900132 CMPB OO soR2, #2 ‘HIGHER T 

(1) O01642’ 101402 BLOS 63S ‘BR IF Nor Ne OHA-NUMERIC CHAR. 
(1) OO1644" 005300 28: DEC RO sMOVE POINTER BACK ONE. 

(1) O01646’ 600403 BR S$ :GO CLEAN 

(1) 001650" 110224 2S: MOVB Re, (R4)+ : STORE THE UF HARACTER.. 

(1) 001652" 005303 4g: DEC R3 :DONE 6 CHARS? 

(1) 901654" 003350 BGT FNAML :B NOT 

(1) 001656’ 020327 ooo006 cs: CMP R3, #6 sANY NAN CHARS? 

(1) O01662" 001493 BEG INVNAM RAF NO ERROR. 

(1) OO1S64" 910067 177224 MOY RO, KEPTR ee Be POINTER. 

(1) 001670" OOO4S4 BR RESR? !RESTORE REGS, DO RTS PC 


X 
Pp 
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11 DEVICE SETUP ROUTINE, INPUT INIT ROUTINE 
0091672" OO4SE? 176212 INVNAM: JSR 
001676’ 047111 O4712e6 O46S0i -ASCIZ 
001764’ 090 EVEN 


001706" 


ve 
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RS, COMCOL 
*TAVNAM’ 


;REPORT INVALID NAME. 


SEG O02€ 
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(1) .SBTTL READL, READC, AND BKREAD SUBROUTINES. 
(1) SUB To READ ONE BLOCK, SET RO AND Ri POINTERS. 

(1) 001706’ 016700 000160 &TDATA: MOV $BUFe, RO ADOR OF 1ST DATA BYTE. 
1) 001712’ 012701 000776 MOV #510... ‘SET BYTE COUNT IN Rl. 

(1) ;SUBROUTINE TO READ LINKED FILE BLOCK INTO BUF 

(1) 001716" 016705 177530 READL: MOV SIDDB, RS :POINT TO INPUT DDB. 

(1) 001722° 105267 002575 INCB PIPFLE :SET PIP M MODE. 

(1) 001726" 005765 00006 TST XDT(RS) :LAST BLOCK? 

(1) 001732" 001436 BEQ EOMERR ‘BR IF YES. “ERROR. 

(1) 001734" 004767 o00024 JSR PC, BKREAD RE 

(1) 001740" 016765 001434 coood6 MOV BUF XDT (RS) I SAVE REXT Bock ADDRESS. 
uD 001746° 900207 READL1: RTS :DONE. RETU 

(hj : SUB TO INPUT/OUTPUT NEXT BLOCK. 

(1) 001750’ 016765 001424 o00008 AXTBLK MOV BUF, XDT(RS) -GET BLOCK NUMBER. 
(1) 001756" 001773 ‘*BEQ° ~—s-READLI ;IF 0. NO MORE. ERROR RETURN. 
1) 001760° 062716 ocooo2 ADD #2, (SP) :SET FOR NORMAL RETURN. 
(1) ;SUBROUTINE TO READ A BLOCK INTO BUF. 

(1) 001764" 004767 9000076 BKREAD: : ISR PC, CLRBUF :CLEAR THE BUFFER 1ST. 

(1) 001770’ 016765 O00108 op0004 MOV $BUF, xBAtReS” SET READ ADDRESS. 

(1) 001776* 012765 o000400 000002 BKRDO: MOV #256! , XWC(RS) :SET WORD COUNT. 

cH) o52004 016565 009012 oO00010 READBK: MOV XRD(RS),XCO(RS) :SET READ COMMAND. 

(2) OO02012’ 004467 oDD0e2 ISR R4, SAVO4 :SAVE REGS 0-4 

1) 002016* 004775 177774 JSR PC’ 3XSV(RS) :DO IT. 

(2) ooz022" RESR?:: 

(2) O02022" 904767 oj0024 ISR PC,RSTOY :RESTORE REGS 0-4 

id) 602026’ 900207 RESR7A: RTS pC : RETURN. 

{ e 
(1) 02930" g04567 175054 EOMERR: : JSR RS,COMCOL sREPORT END OF MEDIUM ERRCR. 
1) 062034" 047505 oc0lis -ASCIZ *EOM! 


~, 
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MOUFA.P11 UTILITY SUBROUTINES - §EO 0028 
it -SBTTL UTILITY SUBROUTINES 
\ 
‘1) Q02040° 010346 SAVO4:: MOV R3,-(SP) ;SAVE R3 
(1) Q0e04e* 010246 MOV R2;-(SP) : SAVE Re 
1) O002044° 010146 MOV R1,-(SP) ;SAVE R1 
(1> O02e046’ O10046 MOV RO, -(SP) ;SAVE RO 
ti OC20S0’ 010407 MOV RY, PC ;RS IS ALREADY SAVED 
(1) 
{1) Q020S2° 012604 RSTO4:: MOV (SP)+,R4 ;RETURN ADDRESS 
(13 OO * 012600 MOV (SP)+,RO ;RESTORE RO 
1) 002056° 012601 MOV (SP)+,R1 ;R1 
‘1) 002060’ 012602 MOY (SP)+,Re ;Re 
(1) Q02062° 012603 MOV (SP)+,R3 
(1) 002064" o00204 RTS RY RESTORE R4 AND RETURN 
sae 
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UFA.P UTILITY SUBROUTINES SEG 2029 
(1) -SUB TO CLEAR BUFFER. 

(1) O02066’ 094567 oD0022 ALRBUF: : JSR RS, BCLEAR CALL BYTE CLEAR S 

(1) 002072’ 903402" 000000 900776 SBUF2:: BUF+2,0,510. ;OEST, clear VALUE , COUNT 

(1) 902190" 900207 RTS PC :EXIT: 

1) 002102" 003490’ $BUF:: BUF 

i ©) 

(1) “ROUTINE TO MOVE BYTE FIELDS. 

(1) O02104" 012767 112120 oO0022 BMOVE:: MOV #112120, BMCe2 ;SET A MOVB (1)+,(0)+ 

(1) 062112" 009403 BR BMC1 

(1) “ROUTINE TO CLEAR BYTE FIELDS TO SPECIFIC VALUE. 

(1) 002114" 012767 110120 o00012 BCLEAR:: MOV #110120, BMC2 :SET A MOVB R1,j0)+ 

(2) O0el12e2° BMC: 

(2) O02122" 004467 177712 JSR R4¥, SAVOY ;SAVE REGS 0-4 

(1) 002126’ O1es00 V (5}+,R0 :GET DEST ADDR. 

(1) 002130’ 012501 MOV (5)+:R1 :GET SOURCE. 

(1) 002132" O12502 MOV (5)+-Re :GET COUNT. 

(1: 002134’ o00000 BMC2: OPEN 

(1) 002136’ 005302 DEC R2 : DONE? 

(1) 002140’ 001375 BNE BMC2 -BR IF NOT. 

1) o02142" 000435 BMC3: BR UPKNM1 

\ 

(1) -CMPNAM SUBROUTINE. COMPARES TWO 9 CHARACTER NAMES. WILD CHARS ALLOWED. 
(2) 002144’ EMPNAM: : 

(2) O02144" 004467 177670 ISR R4, SAVOY :SAVE REGS 0-4 

(1) O021S50’ 012700 oo4S06" SRELIS: MOV WIE NAM RO :DESIRED NAME ADDRESS. 

(1) 002154" 012701 MOV (PC)+,R1 !ADDR OF NAME UNDER QUESTION. 
(1) 602156’ 904524" STXNAM: : .WORD’  TXNAM 

1) 002160" 012702 00001! - MOV #9. ,Re ;COMPARE UP TO 9 CHARACTERS. 
(1) QOO2164’ 122710 oo0077 CMPB ss"? (0) :CHAR A WILD CHARACTER? 

(1) 002170’ OO1002 BNE 1 ; ; 

(1) 002172’ l2epe! CMPB 3s (RO) +, (R1+ :POINT TO NEXT CHAR. 

(1) 002174" GOo4G2 BR 2$ 

(1) 002176’ le2oe! 118: CMP8) ss (CQ) +, (1) 4+ : COMPARE CHARACTERS. 

(1) OO2200’ 001003 BNE 3$ -BR_IF N ME. 

(1) O02202’ 006302 23: DEC R2 ?MATCH.DECREMENT COUNT. 

(1) 002204" 00137 BNE 1$ “BR IF NOT DONE YET. 

(1) 002206* 905725 TST (RS)+ :DONE. SET UP MATCH EXIT. 

(1) 062210’ 900412 33: BR UPKNM1 

(1) ; SUBROUTINE TO CONVERT RADSO FILE NAME TO ASCII. 

(2) 002212" UPKNAM: : 

(2) O02212° 04467 177622 JSR RY, SAVOY :SAVE REGS 0-4 

(1) O02216" 912501 MOV (R5)+,R1 :GET ASCII ADOR. 

(1) 002220’ O12500 MOV (R5)+_RO :GET RADSO ADDR. 

(2) O02222’ OO45E7 o00026 JSR RS, UNPACK :UNPACK 2 WORDS. INTO 6 ASCII BYTES. 
(1) 902226° 062700 909994 ADD #4/ RO :POINT TO EXT ADDR. 

(2) 002232’ 004567 900006 ISR RS‘ UPACK1 :UNPACK 1 WORD INTO 3 ASCII BYTES. 
(1) 002236" UPKNM1: 

(2) 902236" RESRS: : 

(2) 002236’ OO47E7 177610 JSR PC, RSTOY :RESTORE REGS 0-4 

(1) OG2242° ddo2ds RTS RS :DONE. RETURN. 
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OMS 


ST ae ae 
eer ee 


NN ee 


a ae ee ed 


ee ea a a i ee a ee ee ee a ee el ee ae eae ae ee et ee 


NEN ee 


O88 bbe be be be hs bh bb eb be be eb ss ee he be P= ee 


Ne et ee ee et ee et et et ee et te at et et et a se es at et et es a ee a ee es aes es es i 


902244 
0° 


002300" 
002302’ 
002304’ 
002312" 


002314’ 


002370" 


002372’ 
002376’ 


Co2e400’" 003 


RADSC UNPACK SUSROUTINE 


012727 
012767 
004467 


005003 
020012 


000773 


105703 


000033 


090040 


000011 


177660 


0000Se 


oocosco 


00CSo1 


MACY11 


UPACK1:: 1, (PC)+ ;UNPACK ONE WORD ONLY. 
PAKTMP: .WORD OO 

BR UNPAD7 
UNPACK: : MOV #-2, PAK TMP :MAJOR LOOP COUNT 
UNPAD?: 

JSR RY, SAVOY AVE REGS 0-4 
UNPADS: MOY #-3, RY MINOR Age COUNT 

MOV (RO}.RO pas MODYO WORD 
SREL14: HOV #COEFF Re :PTR TO COEFFICIENT TABLE 
UNPAODS: CLR 3 :0 QUOTIENT 
: DIVIDE BY COEFFICIENTS 
UNPAD2: CMP RO, (Re) :DONE WITH DIVIDE 

BLO UNPADIL rY 

SUB (R2),RO :NO-SUBTRACT COEFF. 

C R3 :ADD 1 70 QUOTIENT 


UNPAQL: 


UNPAQ3: 
UNPADY: 
UNPAOS: 


iNPAgg: MO 


AOEFF: 
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.SBTTL RADSO UNPACK SUBROUTINE 
INPUT: posthe OF MOD4YO NUMBER ce WORD} 
1=ADR OF ASCII STRING (6 BYTES) 
OUTPUT: Rl POINTS ONE PAST LAST GENERATED CHARACTER 


IF N IS THE MOD4YO NUMBER, THEN 
N=C1*50t2+C2oxS0+03 

THUS, N/ Cot 2 IS Cl AND THE REMAINDER IS CexS0+C3 

THE RENAINOER 1S DIVIQED By SOC TO GET Ce E 


NU 
BR UNPAD2 
DIVIDE DONE. QUOT IN R3 REMAINDER IN RO 
CONVERT TO AN ASCII SHARACTE 


R3 
BEQ UNPAQ3 : "BLANK" 
CMPB  =—s-«R3,, #33 
BEQ UNPAOS :"g" 
BGT UNPAOY ." " OR “O-9" 
ADD #40 . R3 1"? eo 
ADD #16;R3 
ADD 11,R3 
ADD #1i,R3 
MOVB 3, tR1)+ :STORE CHARACTER 
TST (Re)+ : ADVANCE TO NEXT COEFF. 
INC RY :DONE 3 CHARS? 
BLT UNPADE :NO-D0 MORE 
MOV (SP). RO ; RESTORE ORIGINAL RO ANC 
TST (RO)+ :MOVE TO NEXT WORD 
INC c PaKTHP :DON E 2 WORDS “ 
EoNe--Put cu CURRENT R1 ONTS THE STACK 
BR hss, :30 EXIT. 
,WORD §=:1800..40..1. 240.12, 40.¢1,40.¢2 


“NEN ENE 


, eae ae Lee ae ae i a tae 


SN FO ON FO FO EN I OO 
Os 0 bs 0 eb 0 pe he he bs hs hs = oe he 


Se a et at et et et et at tt a et a es a ee es ee ae es ae es 8 es as ss 


LN LON LOR LON LR IR LRN EN ER LOO OO 
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Pll LL, RUN, AND START ROUTINES SES 202: 
,SBTTL FILL, RUN, AND START ROUTINES 
ooe406" 012703 FILL: MOV (PC)4,R3 ' :GET READY TO TYPE FILL COUNT. 
002410’ 000014 FILLCT: .WORD 14 
0020412° 004767 176614 ISR C,ITOA :PRINT THAT OUT 
002416 004767 176330 JSR PC‘ TA OVER. 
Dosuse’ pouse?  17EESa yen Pe’ Ge TNUN pa NPT ISTGING TO exneRy 
426° O04 1 4 AS 
Basuss. BBY 2 BEQ MOO] : JUS THING 
902434" 010167 177750 MOV R1,FILLCT ‘DUT wat ie CENTERED” THERE 
oo2440’ 000207 MODI: RTS PC’ 
START ROUTINE 
ooe442’ 004767 176549 START: JSR PC, GETNUM :FETCH STARTING ADR 
seis Bas ae Bot otgaeeee 
002452" 103404 BCS INVADR ?BR IF NOT (ODD). 
002454" 060101 ADD R1,R1 RESTORE ADDR. 
092456’ 010167 O0d4s4 MOV R1, STADR :SAVE ADDR. 
O0e46e" 000412 BR RUNIO :DATA TYPED. ay 
O52464" OO4S67 175420 INVADR: JSR RS, COMCO] “REPORT INVALID ADDRESS. 
002470’ 047111 O40526 951104 -ASCIZ ‘IAVADR® 
002476" 000 
002500" EVEN 
002500’ 105267 odeol6 RUN: INCB —- RUNID ;SET RUN INDICATOR. 
002504" 004767 oO00216 JSR PC ,LOAD LOAD 1ST. 
002510’ 004767 176032 RUNIO: JSR PC‘ GTSW :GET SWITCHES. 
002514’ 016767 O02000 175360 MOV Teun, PCOUNT :GET I COUNT IF ANY. 
O02S22’ 001002 BNE :BR IF NON ZERO. 
002524’ 005267 175352 INC BRDUNT :MAKE IT ONE. 
pet b0576? 175406 RUNLI: a cHN ay MODE? 
002536" 012737 oo00S0° OODO42 S$RELIO: MOY #RESTRT, ae42 BR) bee Par ADDR IN LOC 42. 
002544’ 016701 O00366 RUN2O: MOV STADR,Ri ; 
002550’ 006201 ASR Ri 
002552’ 103002 BCC RUN3O :BR IF EVEN ADDR. 
092554’ 012701 oo0!co MOV #100,R1 : O00 ADDR START AT 290. 
Bisse Glee wrreee = RUE! Fluor wg Bay re Faye pea 
: 77 UNOS : V 7 (SP) 
062566’ 012746 A 2345 MOV #12345 '-(5P) iPAGS THE FT XXD NNT TOR LOAD 
002572" 000111 IMP (RL) :START THE PROGRAM. 


-~, 
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oO 
fu 
“J 
thu 
& 


00 
002726" EVEN 


OMSu A. ws TIN , SEG oo22 
(1) - /SBTTL DIR ROUTINE 
<1) 002574" 094767 176642 DIR: J5R PC SETI :NO NAME NEEDED. 
(1) 002600" 012746 MOV (PE)}+, = (SP) :GET FILE POSITION COUNT. 
(1) 002602" 909001 : FILCNT: .WORD 1 
(1) OO02604° 004767 cODcD0s JSR PC, CREWND :REWIND TAPE. 
(13 002610’ g04767 o00000cG 18: ISR PC’ CROHOR : READ FILE LABEL. 
(1) 003614" 990436 BR FLNOTF :EOT RETU 
(1) 002616" 905316 DEC (SP) ;GOT TO PTE? 
(1) 002620" 001373 BNE 1$ IF NOT. 
(1) O02622° 905726 TST (SP)+ :RESTOR E STACK. 
(1) 002624 012765 010005 ooDoDe MOV #MONCNT , XWC CRS) K’S WORTH. ag ARTING AT LOC O 
(1) 902632° 905065 o00004 CLR XBA(RS) ‘ER STA RTS AT C. 
(1) 002636* 004767 177142 JSR PC, READBK :D0 IT. 
(1) O02642° 01279: ooocod" MOV 8NRDIR,R1 sPOINT. TO NON-RES DIR ROUTINE. 
(1) QO2646" O16746 176252 MOV KBPTR. -(SP) :PASS THE BUFFER POINTER. 
(1) O028652° O16746 1752695 MOY SCOMC3, -\ SP? :PASS MONITOR RESTART ADDR. 
(1) QO2656° O16746 176604 MOV CURDRY , -(SP) :PASS CURRENT DRIVE. 
(1) O0e66e" 600737 BR RUN4O 60.7 4 NON- RESIDENT DIR ROUTINE. 
1) : 
(1) - INPUT INIT ROUTINE 
(1) O02664’ 016705 176562 fNITI: MOY $IDDB,RS :POINT TO INPUT DDB. 
(1) 002670" O10 177744 MOV RS, X1STBK(RS) :DUMMY BLOCK NUMBER. 
(1) 002674° 004775 177770 ISR PC, JSRH(RS) :FILE SEARCH. 
(1) 99 700° 900404 BR ;FILE NOT FOUND. 
‘T) 70e’ O1SS6S 177744 cCOODOoE MOV XISTBK(RS) ,XDT(RS) :1$T BLOCK # TO INDT 
1) 302710" 060207 “ RT PC :FOUND. RETURN. 
(1) c7le’ : 
(1) OO271e" 004567 175172 FLNOTF:: JSR RS, COMCS1 :REPORT FILE NOT FOUND. 
(i) scerié’ O42516 043130 o4611! .ASCIZ "NEXFIL' 


ener 


LOO RN LO INO IN ENE ENE 


NEN ENS ONE 


one 


SEN ENE EN OOO 


Ne oom 
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Pil LOAD ROUTINE. ;.SIN OR .BIC FILES ONLY SEG 2022 
io me .SBTTL LOAD ROUTINE. :.BIN OR .BIC FILES ONLY 

( 3 

002726" 004767 176514 ISR Pc SETIN :SET INPUT DEVICE. NAME NEEDED. 
002732’ 012767 O44502 oo1ss4 MOY #”" BI, IFNAM+E :SET UP BIC EXTENSION. 
092740" 112767 000103 9O01550 MOVE #'C TFNAM+8. 
002746’ 005767 175170 TST CHN ;IN CHAIN MODE? 
pre ee 00190 BNE 1$ 
002754’ 112767 0900077 001534 MOVB 8” ?, IFNAM+8. 'NO. ma LAST CHAR WILD. 
902762" O10S65 177720 “ MOV RS, XFLMOD (RS) INDICATE FILE MODE. 
002766’ 004767 177672 JSR PC, INITI sINIT FoR INPUT. 
002772’ 004767 176710 LOADL: JSR PC GTDATA - INPUT A BLOCK OF DATA 
002776’ 095027 LOAD2: CLR (PC) + tINTTIAL IZE CHECKSUM 
003000° 900050 CHKSUM: .WORD : 
003002’ 004767 ooD154 JSR PC, RDFRAM ‘READ A SYNC WORD 
903006’ 005703 TST R3 :GOT AN 
003010’ 001772 BEG LOAD2 ‘IF ves. UKEP READING. 
093012’ 00S303 DEC R3 !SEE IF IT'S A ONE 
003014 901025 BNE CKSMER -IF NOT LORD ERROR. 
093016’ 004767 o00140 JSR PC, RDFRAM :SYNC IS A 
003022’ 105703 TSTB «RB :OF 1 
093024’ 001021 BNE CKSMER :50 THE SECOND HALF MUST BE 0 
093026’ 004767 900154 JSR PC, ROCFRM :2 BYTES=i 
993032’ 0103204 MOV R3;R4 : ASSUMING “NOT DONE YET 
003034’ 162704 oop0004 SuB 84° R4 MINUS THE HEADER 
093040’ 022704 990002 CMP #2) RY ‘BYTE COUNT=67 
Ete pares 000134 a ‘= GET Ube0 8 5D hy en 
003052’ 01030e MOV :IN To R 
003054’ 004767 ooo102 LOAD3: JSR PC’ ROFRAM : GET a By TE 
003060’ 100016 BPL LOADS :BYTE COUNT NOT ZERO YET 
003062" 105767 177712 TSTB CHKSUN :CHECK SUM SHOULD SE ZERO 
003066* 001743 BEG oAde IT IS 
003070° GO4S67 175014 CKSMER: JSR RS CONCO! ‘REPORT LOAD ERROR. 
003074° 045503 O46523 o51105 -ASCIZ ‘CKSMER® 
003102" 000 

003104" EVEN . 
003104" 904567 175000 POFLOW: JSR RS cONCeL :PROGRAM OVERFLOW MESSAS 
093110" 047520 O4E196 900117 -ASCIZ POFL 
003116’ 020227 ooo0000" Loac4: éMP R2, SRESTCK : PROTECT THE MONITOR 
002122’ 103370 BHIS POFLOW 
003124" 110322 MOVE RB, (Re) + CORE THE BYTE. 
993126’ 900752 BR LOADS :GO GET MORE 
003130’ 904767 oopDse2 LIMP: JSR PC, RD2FRM :GET THE JUMP ADR 
003134’ 010327 MOV R3; (PC) + :STORE IT FOR RAINY DAYS 
003136’ 900091 STADR: .WORD Seite. 
003140’ 004767 oop016 ISR Pc, ROFRAM :MAKE SURE THE CHECKSUM IS OK 
003144" 165767 177630 TSTB = CHKSUM WE CHECK EVERY BLOCK 
903150’ 001347 BNE CKSMER 
002152’ 112737 ogoco4 coco4 MOVE = #4, a4 :SET LOAD MEDIUM INDICATOR. 
003160’ 000207 T C ;DONE. GET OUT. 
003162’ 005301 RDOFRAM: DEC 1 :BYTE COUNT IN BUFFER 
003264’ 100003 BPL ROFRMA : SOMETHING IN BUFFER 
COZ1EE’ OO47E7 176514 ISR PC GTCATA :NO, GET ANOTHER BUFFER FULL 
002:72" 900773 BR CFRAM ‘DO’ THE HOUSE KEEPING 
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oMEUFA.P LT LOAD ROUTINE. ;.8IN OR .BIC FILES ONLY SEG 0024 
(1) 903174" 112003 ROFRMA: MOVB (RO)+,R3 PICK UP CHR 
1) 003176" 060367 177576 ADD Rs, CHKSUM D0 THE CHECKSUM STUFF 
(1) 903202° 005304 DEC :LOAD BYTE COUNT 
1) BOse08" 900207 ROFRME: RTS Be 
1) 903206° 009767 177750 RD2FRM: JSR PC, ROFRAM ;GET ONE BYTE FIRST 
(1) 003212’ 910327 MOV R3, (PC) + : STORE IT TEMPORARILY 
42 $e3e14* oo0069 LTEMP: .WORD 0 : TEMP_STORAGE. 
1) 803316" 90476? 177740 ISR PC, ROFRAM GET THE OTHER SYTE 
1) 003222" 110367 177767 MOVE =sR3-. Lene +s NTO THE HIGH BYTE 
(1) 003226° 016703 177762 MoV L TEMP eb INTO R3 
1) 903232° 900207 RTS : RETURN 
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MOUFA.PLI BATCH DEVICE DESCRIPTOR BLOCK (DDB) 
C1) .SBTTL BATCH DEVICE DESCRIPTOR BLOCK (002) 
(1) 003234 BTCDDB 
(1) 003234* oooo90 RWETR: 0 
(1) 003236° 000000 RFLMOO: 9 
(1) 003240" o00000 RFLCNT: 0 
(1) 003242" o00009 RSVMAP: 0 
(1) 63646" 6bB000 ReVELK: 0 
(1) 003250’ 000008 ocoog0 RSVNAM: 0,0 
(1) 003254" oo0000 RSVEXT: 0 
it) Bosees* 900000 Revex: 
) bosses" booeo RISTBK: 0 
(1) 003264° o00000 RBKLGT: O 
(1) 003266’ co0000 RLSTBK: 0 
1) 903270" 90009 RSVUPT: 0 
BRE: BRR on 
(1) 76° R2ER: 0 
(1) 003300’ o00000 RDLT: 0 
(1) 003302’ oo0000 RCLS: 

(1) 003304" goo000 RRETR: 0 

(1) 003306’ 90000 RSRCH: 

(1) 003310’ oo0090 RALC: 9 

(1) 003312" oo0000 RSRY: 

(1) 003314 ooog00 RORV: 9 

(1) 003316’ 900000 RCM: = 

(1) 003320" ooo000 RWC: 0 

(1) 003328, 00000 Rea: 

1} BBS» 8888 Reor: 
(1) 003330’ Oo0000 RPRC: 0 

(1) 003332° o00000 RRPWC: 0 

(1) 003334° o00000 RRBKCT: 9 

(1) 003336" 900000 ROIR: 0 

(13 003340’ o00000 RNBK: 0 

(1) 003342" 900 o0D O00 RFNAM: .BYTE 0,0,0,0,0,0,0,0,0 
(1) 003345’ O00 990 909 

(1) 003350" 000 900 900 

(1) 303353" BTCEND: 

(1) 003254" JEVEN 
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OMSLFA. BATCH DEVICE DESCRIPTOR BLOCK (DDB) 


;KEYBOARD BUFFER. 
KBUF : -BLKW 10 


an 


nd 


CC3354" 0960: 


“eee ae 


003400" CLRBEG: 
Main READ = - ARIE BUFFER 
053400" soc4#co BUF: 256. 


+ op d + a ee 
a 


oe 
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.SBTTL START OF CLEARABLE CORE (DURING INIT) 


GINNING OF CLEARASLE AREA 


(D 


RING INIT>. 
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VICE DESCRIPTOR BLOCK 


XXDP TR7SF MONIT 
Ply INPUT D DB) 
.SBTTL INPUT DEVICE DESCRIPTOR BLOCK (DDB) 
004400" DDBSTR: INDDB: 
004400’ oogoo0 IWCTR: .WORD 0 *XWCTR OUTPUT FILE OPEN FLAG 
po4402" 900000 IFLMOD:: “word «(of sXELMOD FILE MODE FLAG 
994404" 900000 IFLCNT: .WORD 0 :XELCNT FILE COUN 
S440 000909 ISVHAP: - WORD 0 XSVHAP BLK + oF S NAP BLOCK 
4410’ r « % 
BBaut ’ iatlaat FavENK: “HOR 5 ey LK LK # OF CUR BRR EES E UFD 
iuro DIRECTORY ENTRY DATA FOR FILE 3 ‘ 
904414" oo90000 oop9000 tSVN WORD 0, XSVNAM FILE'S FILENAME IN RADSO (2 WORDS) 
004420" 900000 1eVEXT: “WORD 0 tXSVEXT FILE’S EXTENSION IN RADS 
gowvie’ oo0000 1SVOAT: WORD 0 :XSVDAT FILE'S CREATION DATE IN DOS FORMAT 
2 4456" alia ISTBK: oR : :XISTBK BLOCK # BF FILE’S FIRST DATA BLK 
004430’ oo9090 IBKLGT: .WORD 0 :XBKLGT # OF BLOCKS IN THE FIL 
004432" 900900 ILSTBK: .WORD :XLSTBK BLOCK # OF LAST ‘DATA BLOCK WRITTEN 
094434’ 900000 ISVUPT: .WORD 0 *XSVUPT (NOT USED?) 
:END OF DIRECTORY ENTRIES 
004436’ ooo000 INBOOT: .WORD ;XBT ADDRESS OF “BOOT” ROUTINE 
004440’ ooc000 INDRT: .WORD Q : DRT ADDRESS OF “DIRECTORY” ROUTINE 
OowsNe" oo0c00 INZER WORD 0 :ZER ADDRESS OF “ZERO” ROUTINE 
° 4 
Bpaude» BOBsSe Nets: ctioe 8 ‘RZ = BBBRE@e OF RELETE ROTA 
004450’ oo0000 INETR ORD 0 :ETR ADDRESS OF “ENTER™ (CREATE) ROUTINE 
004452’ ooo000 INSRH: .WORD 0 : SRH ADDRESS OF “LOOKUP” (SEARCH) ROUTINE 
o04454° oooc00 INALC ORD 0 :ALC ADDRESS OF “BLDOCATE ROUTINE 
004456’ ooc000 INSRY: .WORD 0 sxSV ADDRESS OF DEVICE DRIVER ROUTINE 
004460’ oocooo INDRV: .WORD 9 XDN CURRENT DRIVE (UNIT) NUMBER 
oo4462” INDEV: ?RS POINTS HERE 
004462’ ooo000 INCM: .WORD OQ XCM ADDRESS OF DEVICE’S COMMAND REGISTER 
904464’ 990000 INWC: iWORD O XWC CURRENT WORD COUNT 
004466’ coo000 INBA: WORD :XBA CURRENT BUS (MEMORY) ADDRESS 
ppau7o" a ae WOR XDT CURRENT BLOCK NUMBER 
B 4472" ictal NRO: . WOR = :XCO CURRENT BOE ANS BEE 
004474" oo0000 INPRC: .WORD 0 : XRD READ COMMAND CODE 
004476’ g00000 INPWC ORD 0 : XWT WRITE COMMAND CODE 
004s500’ oo0000 INBKCT: :WORD 0 : XBC REQUESTED BLOCK COUN 
oo4s02’ og0000 WORD QO : XDR ADDRESS OF FIRST BTRECTORY BLK 
904504 oog900 NBK: .WORD 0 : XNB LAST BLOCK & ALLOCATED (NEXT BLK #) 
004506’ O00 003 000 IFNAM: ‘BYTE 0,0,0,0,4,9,0,0,0 SXXNAM FILE'S NAME IN ASCI 
904511’ 900 000 000 
004514" 000 000 909 | 
004520" EVEN 


CO4520" COBEND: 


@) 
“oe 


0-+ 0 <= b+ b+ b= 9 ho b= be op pe 
et ee ee ee ee ee ee es ee oe ee 
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INITIALIZABLE VARIABLES’ASCII STRINGS SEG 72022 
-SBTTL INITIALIZQBLE VARIABLES/ASCII STRINGS 
g04s20° oo0000 ICOUNT: .WORD 
p04522" O00 RUNID: [BYTE 
o04523" 000 PIPFLG:: “BYTE 0 
004524" 900 9900 000 TXNAM:: .BYTE 0,0,0,0,0,0 
= 527’ 00 99 500 
b4532° O00 60 000 ‘TXEXT: .BYTE 0,0,0 
004535" CLREND: 


;ASCII a} 
004S35° O45 000056 ADOT: ASCIZ 
QO4S40° O11 009 ATAB: -BYTE 1 ,0 
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1 COMMAND, SWITCH, AND DEVICE TABLES 


OMOUFA.PL 


a 


CD aD re RN NN RR ON NR ER PR ERE 


GC) Geb be PUPUTUTU PUurUrUururururufur += 
es es es 0 ws ess es 


oo4S4e" 
O04S4e" 
00 ’ 


004654’ 


OO4656° 
004656" 


o00S4e2" 
000530" 


177777 


0090006 
cocooi 
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. SBTTL 


O3-JAN-77 13:49 PAGE 1-38 


COMMAND, SWITCH, AND DEVICE TABLES 


ALL COMMANDS ARE CHECKED AGAINST THE QUOTES 
;NO ABBREVIATIONS ALLOWED 


COMTAB: 
a” 


DEVTAB: 
:END OF SOURCE. 
~END 


SETOQV ;DISPATCH ADDRESS FOR 
SETCNT ;DISPATCH ADDRESS FOR 
COMCON ;DISPATCH ADDRESS FOR 

ILL ;DISPATCH ADDRESS FOR 
START ;DISPATCH ADDRESS FOR 
LORD ;DISPRTCH ADDRESS FOR 
RUN ;DISPATCH ADDRESS F 
DOIT ;DISPATCH ADDRESS FOR 
DIR ;DISPATCH ADDRESS FOR 
RTSPC ;DISPATCH ADDRESS FOR 
RTSPC ;DISPATCH ADDRESS 
— ;DISPATCH ADDRESS FOR 
SETMTO 
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OMOUFA.P11 CROSS REFERENCE TABLE -- USER SYMBOLS . SEG CO4e 
ADOT 004S35R 005 13338 
AK 001411 1333 8% 
ALC = 177772 13338 
ALTMOD= 000033 13338 
ALTL = 000033 13338 
ALTe = 000175 13338 
LT3 = 000176 13338 
ARSTRT OO1416 13338 
TAB OO4S4OR 00S 13338 


BCD1 O0274R 13334 
BCDe 000302R 13338 
BCD3 OO03S4R 13334 
BCDY 000320R 13338 
BCOS 0003108 1333% 
BCDb OO0340R 13338 
BCD? O00346R 13338 
BCLEAR O02114R G O05 13338 
BEGIN 000 13338 

T 000216R OOS 13338* 


w 
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oO 
<= 
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Oo 
oO 
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_ 
Oo 
<= 
za 
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Ww 
w 
Ww 
SS 


COMTAB OCO4S4eER 005 13338 
CROHDR= ###e4% G 13338 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


DMGUFA.P11 


CREWND= 
CRLF 
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OMOUFA.P11 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0042 


STOKK Q00552R 00S 13338 


“ 
=z 
= 
3 
oO 
oO 
Oo 
on 
rf 
<£ 
za 
© 
Oo 
oO 
uw 
— 
Ww 
w 
Ww 
a 


WOT CO44OOR S05 13338 
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OMQUFA.P11 CROSS REFERENCE TASLE -- USER SYMBOLS 


IiSTBK OO442ER 005 13338 
PTR 001124R 005 13338* 
00 R 13 


LIMIT  O01232 13338 
eR 
LOADL o5gR 00 13333 
LOAD2 ##002776R 005 13338 
LORAD3 Q030S4R 00S 13338 
LOADY Q003116R 00S 13338 
LPB 000142 13338 
L 000140R 13338 
LPSW 000104R 13338 
LTEMP 03214R 005 13338* 
MES OOOb4eR G O05 1333 
MESC OOOESYR 00S 13338 
MES1 COO&EER 00S 13338 
MNBK = QO0024 1333% 
MNINST 001547 13338 
MOD1 O02440R 00S 13338 
MONCNT= 010000 13338 
OUT 00i000R 005 13338# 
MREG 001004R 005 13338# 
MTBA = 164006 1333 8% 
MTCM = 164000 1333 8+# 
MTST = 164002 13338% 
MTWC = 164004 13338* 
NAME 001330 13338 
NOCORE 001435 13338 
OOOCOCR 13338 
NRGTSW OO0074R 133348 
NRSWTB OOO144R 13338 
NXTBLK OQO17S5S0R G O05 13328 
= 000000 13334 
PA 250 133348 
PAKTMP Q022S0R 00S 1333s# 
PC =%000007 1333%* 
COUNT O00102R 00S 13338* 
PIPFLG QOO4S23R G 005 13328* 
POFLOW OO3104R COS 13338 
PRTY7 = 000340 133348 
PS = 177776 13338 
SW 3 = 177776 13338 
GYMODE 600217R 90S 13338* 
03310R 00S 13338 
ce 003322R 005 13338 
REKLGT OQO3264R 00S 133538 
RFBOOT  00227e2R 00S 1333s 
ROKSM 00370R OOS 2338+ 
FCKSUM OQOO3G6R 005 1333s 
IeLS 003302R COS 13338 
ROM 003315R 5 13238 
COM 003325 SOS 13238 
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to-* 3 


Sew wu 


by 


GOH 
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OMSUFA.P11 CROSS REFERENCE TABLE -- USER SYMBOLS SES C046 
RiSTBK O03262R 00S 13338 
Re =%00000e2 1333%* 
Rg =%000003 13338 
RY =%000004 13338* 
RS =%000005 1333%% 
=7Q00006 13338* 
R&STCK OCOOCOR 5 13338 


O01446R 00S 133348 

ETMTO= £4%44% GC 13338 
SET@V OO0S42R 90S 13338 

=%000006 1333 8% 
SP80T  OO00SOR 00S 13338 
C 77770 13338 
¢ 03136R OOS 13338* 
START OQO02442R 00S 1333 
TAB 0007SeR G OOS 13338 
TADP = £¥ee%% U 1333 
TAPERR O00306 13338 4 
TROP = 000000 1 1333 


TXNAM OO4S24R G O05 13338 
UNPACK O022S4R G 005 13338 
UNPAQL 002314R 00S 13338 
UNPAD2 002302R 00S 13338 
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ul 
_ 
Ww 
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XBA = 000004 13328% 
xBC = O00016 13338 
XBKLGT= 177746 13338 
XBT = 177754 13338 
xCM == 000000 13338 
xCO = O00010 13338% 
XDN = 177776 13338 
KOR = 000020 13338* 
xDT = COO00E 13338* 
XFLONT= 17772e 13338 
XFLMOD= 177720 13338* 
XLSTBK= 177750 323 

xNB = ~Q00022 13338 
XRD = Q000I2 13338 
XSY = 177774 13338 
xSVELK= 177730 13338 
KSYONT= 177726 13338 
¥SVORT= 177749 13338 


HOY 
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OMOUFA.P 1) CROSS REFERENCE TABLE -- USER SYMBOLS SES COYE 
XSVEXT= 177736 13338 
XSVMAP= 177724 13338 
XSVNAM= 177732 13338 
XSVUPT= 177752 13338 
xSVXX = 177742 13338 
XWC_ = 900002 13338 
XWCOTR = i77716 13338 
XWT = O00014 13338 
XXNAM = 000024 13334 
XYBK 002012R 905 13338 
XISTBK= 177744 1333%* 
ES 001316R 00S 13338 
Z = 177760 13338 
SAPR 000622R 13338 
$AUG OODESeR 13338 
SBUF el0eR G 005 13338 
F O00207eR G 005 13338 
$COMC3 0136R 00S i3338 
$DEC 000702R 13338 
COOB0ER 13338 
$I0DB OO14SeR G 905 13338 
690R 13338 
JUL OCO644R 13338 
O00636R 13338 
$LITTB OO02624 13338 
000614R 13338 
SMAY 000630R 13338 
SNOV 000674R 13338 
$OCT OOO&66R 13338 


$RELE = GO0250R ©=s«s005 13338 
EL? O01S10R O05 1333+ 
5 OODGEOR _ 13338 
$TPNM1 OOOCOER G 13338 
STxNAM OOSiSER G 305 13338 

COMEEOR «= 0513338 
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OMSUFA.PLI CROSS REFERENCE TABLE -- MACRO NAMES SEG 2047 
INITI 4i8 1333 
READL SOs 1333 
RESREG ebe 1333 
RESRS 238 1333 
RESR? 328 1333 
OUTIN S28 
SAVREG 238 1333 
SETSN 478 


= 

4 

“Uv 

YD 

oO 

~~ 

tw 

Po a wn ‘ 

bs 
b= P< 0-2 ps bs po po Be 
WII GIGI IGG 
CuGutd GIGI GIGI 
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aesura.P tT : ERose REFERENCE TABLE -- PERMANENT SYMBOLS . SES CO4e 
aoc i333 
ASL 1333 
ASR 1333 
Bec 1333 
BCS 1333 
BEG 1333 
BGE 1333 
OGT 1333 
HI 1333 
BHIS 1333 
BIC 1333 
BICB 1333 
BIS 1333 
BiT 1333 
BLE 1333 
BLO 1333 
BLOS 1333 
LT 1333 
BMI 1333 
BNE 1333 
BPL 1333 
BR 1333 
CLR i333 
CLRE 1333 
CMP 1333 
CMPS 1333 
DEC 1333 
HALT 1333 
NC 1333 
INC 1333 
MP 1333 
JSR 1333 
MOV 1333 
MOVE 1333 
NOP 1333 
ROL 1333 
RTI 1333 
RTS 1333 
SUB 1333 
SWAB 1333 
TST 1333 
TSTB 1323 
-ASCII 1333 
-ASCIZ 1333 
-ASECT 1333 
- BLKW 1333 
.BYTE 1333 
-CSECT 1333 
- END 1338 
- ENDC 1332 1333 
EVEN 1333 
GLOBL 1333 
IFOF 1253 1333 
IFF 1333 
IFT 1333 


TROP _- XXDP TR79F MONITOR M 


OMSUFA.P11 
-LIMIT 1333 
LIST 3 
. MACRO 5 
1254 
NIST i 
PAG 1333 
EM 3333 
SBTTL 1333 
TITLE 1333 
WORD 1333 
. ABS. 002710 
009710 
MTOIRT 000000 
RUNBUF 001000 
TREE 000000 


RESMON OO04660 


ERRORS DETECTED: 


-~11-DMQUF-A MACY11 


7 (732) 


03-JAN-77 


CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


4 1333 
14 23 


2 1333 


0 
DEFAULT GLOBALS GENERATED: 


*TROPM, TROPM.LST/CRF=DMQUFA.P11/EQ: TROP 
2 SECONDS 


RUN-TIME: 11 16 
RUN-TIME RATIO: 
CORE USED: 16K 


93/30=3.1 
(31 PAGES) 


Q 


es 


29 


3& 


KO4 
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41 


44 
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OMSLFA.P12 . SEG c0s0 
: NLIST NE MC 4MD, CND, 70 

1008 Rogie TROGe XP TR79F MODULE READ-ONLY 
(y} .SBTTL EQUATE 
(1) ooo0c0 RO 0 
(1) 900901 R1 241 
ih) 900002 Re =%e 
(1) 900003 R3 = 
(1) 090004 e4 4 
(1) 000005 BS 245 
ERR SS 
‘a? sf 
(1) 900007 PC 2% 
Bibi Sey 34777 
ee) = 
(1) 900200 DONE = 
(1) 190000 ERROR  =190000 
(1) 177716 XWCTR === ; INDEX TO WRITE COUNTER. 
(1) 177720 XELMOD =-60 — ; INDEX TO FILE MODE INDICATOR 
1) 177722 XFLCNT =-56 ;INDEX TO FILE COUNT 
(1) 177724 XSVMAP =-54 so; 
1) 177726 XSVCNT =-S2 ; 
(1) 177730 XSVBLK =-S0 ~~; 
(1) 177732 XSVNAM =-46 = ;PHONY UFD BLOCK POINTERS 
(1) 177736 XSVEXT =-42  } 
Bo Te ee re 
{ (Ce =- : 
(1) 177744 XISTBK =-34 =; 
oo te co ae 
(1) 177752 XSVUPT =-26 = ; 
(1) 177754 XBT =-24  ; INDEX TO BOOT ROUTINE. 
(1) 17775 DRT =-22  ;INDEX TO DIRECTORY ROUTINE 
(1) 17776 ZER =-20 ; INDEX TO ZERO ROUTINE 
(1) 177762 DLT =-16  ; INDEX TO DELETE ROUTINE 
(1) 177764 CLS =-14  ; INDEX TO CLOSE ROUTINE 
(1) 177766 ETR =-12 ; INDEX TO ENTER ROUTINE 
(1) 177770 seq =-10 ; INDEX TO LO 
(1) 177772 ALC z- ; INDEX TO ALLOCATE ROUTINE 
(1) 177774 XSV =-4 ; INDEX TO SERVICE ROUTINE (DRIVER). 
(1) 177776 XON =-2 ;DRIVE NUMBER INDEX 
(1) 009900 XCM =0 ;INDEX TO COMMAND REGISTER 
(1) 000002 XWC =2 ; INDEX TO WORD COUN 
(1) 909004 XBA z ; INDEX TO BUS ADRESS 
(1) 900006 XOT =6 ; INDEX TO BLOCK NUMBER 
(1) 000510 XCO =19 : INDEX TO COMMAND 
(1) 900012 XRD =12 ; INDEX TO READ COMMAND 
at aGoOLe xee zig SINDEX TO REQUESTED BLOCK COUNT 
-ea? = | wv i 
(3) state XDR =38 HIN EX TO 1ST DIR Ee POINTER. 
(1) o0cde2 XNB =2e ; INDEX TO LAST BLOCK # ALLOCATED. 
(1) 090024 XXNAM = -=24 : INDEX TO RECII NAME IN ODE 


MO4 


TRE -_ XXDP TR7SF MODULE READ- MACY11 27(732) O3-JAN-77 13:48 PAGE 1-1 
OMSUFA.Pi2 cPbpae REFERENCE DEFINITIONS : 

(1) .SBTTL GLOBAL REFERENCE DEFINITIONS 

iD) EXTERNAL GLOBAL DEFINITIONS 

(1) .GLOBL BMOVE BCLEAR, CHROUT , CRLF 

ih oe ae 

() -GLOBL Be He "EB oa 

1) -GLOBL FLNOTF 

(13 -GLOBL  RSTOW, re UNPACK , UPACK | 

(1) - GLOBL FONERR READ 

(1) -GLOBL 

C1) -GLOBL pypeLe. UPxnan IFLMOD 

(1) -GLOBL $TXNAM, SBUF2, $BUF 

(1) -GLOBL RESR?. tNVCMD 

(13 -GLOBL BCDCV 

C1) -GLOBL DATUPK 

(1) -GLOBL TAB 

(1) -GLOBL $TPNM1 


FSTMOD 


@ 
t 
Oo 
w 
bas 


TR7SF = XXDP TR7SF MCCULE READ-ONLY 


OMQUFA.P12 
1001 
(1) ogg000" 
(1) oo00g2" 
(1) po0g04" 
(1) 900006" 
(1) 900010" 
(1) ocogie 
(1) 900014" 
(1) Q000i6" 
.1) 000920" 
(1) 000982" 
(1) 00024" 
( ’ 
i} Bbbose° 
3 RRS 
ti} Sobo3e" 
1) 900049" 
it} BRRBY F 
(1) ogg046" 
4) 000080" 
1002 
(1) 
(1) ogg0s0° 
(1) 990052" 
(1) 900054" 
(1) 000056" 
(1) 000060" 
(1) 000062” 
(1) 000064" 
(1) po0g6e” 
1003 00070" 
1004 000072” 
1005 00074" 
1006 000076" 
1007 


PGRAMETER TASLE 


O000C0G 
000000’ 


009000 


177777 | 


0 
o000006 
164002 


164006 


MACY11 27(732) 


PARAM: 


: 


b. Break 


SBTTL PARAMETER TABLE 


INVCOMD 
DIRECT 


ear 


LSTBLK: 0 


PAREND: 


BIR 


once a TABLE FOR MTCOM SECTION. 


RD 
INVCMD 
164002 


164096 


13:48 PAGE 1-2 


UNIT 
COMMAND oe ADDR 
WORD COUNT 
Haus ADDRESS 
OCK NUMBER 
MMAN 
feo. yo 


BRET EOS EOD 


: LAST BLOCK # ALLOCATED 


371 INDICATES ag oy ees FILE DEVICE. 
:POINTS TO REWIND ROUT 


N 
: POIN 1} BR Ren. REVERSE BLOCK ROUTINE. 


POINTER. 
SINS TO_ROHDR ROUTINE. 
sMeOT POINTER 


SEG 9052 


TR7SF = XXDP TR7OF MODULE READ-ONLY 
OMSUFA.P12 SETMT ROUTINE 


i009 

1019 000190’ 

1012 000:00° Ol2790 00090" 
iets 000104" O00207 


MACY11 27(732) 


SBTT 


SETMTO:: 
MOV 
RTS 


L 


O3-JAN-77 13:48 PAGE 


SETMT ROUTINE 
PARAM, RO 
PC 


1 


3 


:POINT TO 
:DONE. RE 


PARAM TAGLE. 
TURN. 


~ 
- 
-~ 


m 


@ 0053 


-~, 


TR79F - XXDP TR7SF_MODULE READ-ONLY MACY11 27(732) O3-JAN-77 13:48 PAGE 1-4 
OMSUFA.P12 MAGTAPE ROUTINES 


1916 .SBTTL MAGTAPE ROUTINES 

1017 000106’ 094767 ocoDse REWIND: JSR PC MTDRY :SELECT DRIVE 

1018 000112’ 032777 O00040 177750 BIT #40, ONTST -AT LOAD PIONT 

1019 000120’ 001003 BNE 1$ ; BRANCH IF YES 

i020 000122" 052703 o00021 BIS #21,R3 NO 

1021 900126’ 000436 BR MTDO CHK FOR DONE 

i022 000130’ 004767 oD0022 1$: JSR PC ,WRTIDB ;G0_W RITE D8 

1023 000134’ 000207 RTS p T 

1024 000136’ 004767 ocod22 SKIPR: JSR PC, MTDRV SELECT DRIVE 

1025 000142’ 052703 000011 BIS #i1,R3 ‘BACK SPACE 

1026 000146’ 012765 000001 onoo0De MOV #1, XWOCRS) 

1027 000154’ 900423 BR MTbO 

1028 000156’ 012703 ooo00s WRTIDB: MOV #5,R3 :W/R IDB 

1029 000162’ 000420 BR MTDO : 

1930 000164" 905003 MTDRV: CLR R3 

1031 000166’ 116503 000013 MOVB  XRD#1(RS),R3 :GET DRIVE NUMBER 

1032 000172’ 000303 SWABS T IN LEFT HALF 

1033 000174° 010377 177672 MOY R3, IMTCM SELECT THE DRIVE. 

1034 000200° 004767 cO0066 JSR PC’ MTDO2 WAIT FOR DRIVE RDY 

1035 090204" 000207 RTS PC’ RETURN. 

1052 

1053 900206’ 012767 900002" 000000’ TRESET: MoV #TRBUF , TREF : 

1054 000214’ 066767 O09000¢ o00d00° ADD RELCNT? TRBF ; 

1055 9009222" 900207 RTS PC : 

1056 

1057 

tes 

1060 00224’ 016577 o00002 177642 MTDO: MOV XC (RS) IMTWC :GET WORD COUNT 

1061 000232° 905477 177636 NEG IMTWC 

1062 000236’ 004767 177744 JSR PC, TRBSET 

1063 oO00242' 016777 Oo0000' 177626 MOY TRAF , IMTBA MEM. 

1969 000250’ 005077 177614 1$: CLR ant st : CLEAR ae Tus 

1970 000254’ 010377 177612 MOV TCM : SET THE FUNCTION AND & 

1071 000260’ 032777 100200 177604 MTDO1: BIT RERRORSDONE, aNTCM : DONE? 

1072 000266’ 001774 BEQ MTDO1 WAITING 

1073 000270’ 100413 BMI MTERR ERROR 

1074 000272’ 032777 O00001 177570 MTDO2: BIT #1, IMTST :DRIVE READY? 

1075 000300’ 001774 BEQ MTOO2 ‘LOOP TILL DONE 

1076 000302’ 032777 oDDD40 177560 BIT #40, INTST ‘LOAD PIONT 

1077 000310’ 001402 BEQ 1 ; 

1078 000312’ 004767 177640 JSR PC WRTIDB : 

1078 000316’ 000207 13: RTS 

080 000320’ 032777 O00010 177542 MTERR: BIT #10, IMTST EOF? 
81 000326’ 001493 BEG MTERI :NO eae 
G2 000330’ 105267 oooDd0° INCB EOFSEN :SET EOF SEEN FLAG 
83 900234" 000756 R MTDOe -WAIT FOR ORIVE TO SETTLE DOWN 
84 000336’ 000167 oD0000¢ MTERL: IMP DEVERR :DEVICE ERROR. 


2b he he oe 
YOOodOOoOoOVWVdV0VI00 
wo.0co@mcC cmc 

*OOONMO CMe 
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OMSUFA.P12 AGTAPE ROUTINES SEG cose 
1092 
1092 
1994 
1095 
1296 
1097 
1098 
1098 
1100 
He 
1103 000342’ 105067 oD0000° RDHDR: CLRB EOFSEN :KEEP TRACK OF EGF’S SEEN 
1104 000346’ 004767 177612 RHDRS: JSR PC, MTDRV :SEE WHAT HAPPENS 
1105 0003S2° 012767 177762 000176 MOV #-14. ,BYTCNT :SET BYTE COUNT 
1106 000360’ 012777 177762 177506 MOV #-14. OMTWC 
1107 000366’ 016767 0000006 oo0160 MOY SBUF DES 
1108 000374’ 004767 177606 ISR PC. TRBSET 
1199 o00400° 016777 O00000' 177470 MOV TRB, IMTBA 
1110 O00406’ G0S077 177456 CLR aMTS ;CLEAR INHIBIT 
1111 OO00412’ 016577 OO0012e 177452 MOV XRD( RS), aMTCM : ‘ 
lll2 oO00420" 004767 177646 JSR Pc MTbOe :TEMP FIX MAKE SURE OF DONE 
1113 000424’ 032777 100200 177440 RHDRI: BIT BERROR*DONE, aMTCM : DONE? 
tIis Boo4aa" SoRde2 Ber RL i eROR 
1116 000436’ 490755 000010 177424 RHOR2: Bt 5) Rast ERP 
1117 000444" 001407 BEQ iO” 
1118 OO0446’ 105267 opo000" INCB RHORE. UP COUNT OF EOF'S SEEN 
1119 O004S2’ 022767 000003 oDDcD0’ CMP #3, EOFSEN N 3? 
1120 OOO460’ OO14OsS BEQ RHORY ‘BR IF YES. EOT. 
1i21 o00462’ 900731 BR RHDRS 
1122 000464’ 062716 oDDD0e RHDR&: ADD #2, aSP :NO ERRORS SKIP RETURN 
1123 000470’ 004767 O00920 ISR PC’ PAK :GO PACK THE BUFFER 
1124 900474° 005767 oO900000c RHDRY: TST BUF ; 
1125 o00S00’ 000207 RTS PC 
1126 000502" 022777 O01000 177360 RHDR3: BIT #1000, IMTST : BLOCK LENGTH ERROR? 
1127 000510’ 001316 BNE RHDRS -DATA BLOCK 
1128 0905:2° 000711 BR MTER1 : SOME PINGS ERROR. 
1130 
1131 
1132 
1133 
1134 
1135 900514" PAK: 
(1) 900514 004467 oD00006 ISR RY, SAVOY :SAVE REGS 0-4 
1136 000520’ 004767 177462 ISR Pc’ TRESET . 
1137 o00524’ 016790 oo0000" MOV rR RGF -SET INPUT BUFFER 
1138 000530’ 016701 900020 MOV SATS :GET OUTPUT BUFFER 
1139 000534’ 112021 13: MOVB OROss (RL D4 :PACK IT IN 
1140 0900536’ 005200 INC RO :POINT TO NEXT WORD 
1141 900540’ 005267 ocoole INC BYTCNT “COUNT THE BYTE 
ii42 000544’ 001373 BNE 1$ :8R IF NOT FINISHED 
1143 000546" 094767 ooog00s ISR PC RSTOY !RESTORE REGS 0-4 
1144 oocss2" 900207 RTS PC 
L14é 


TRF a 
ALP 


OWD OOOWOWODOOOWM WMwW~)~IUUINUWI se + 
—-WN£ WM-OwD SOP UF EGO FOr COD Pt Cc Ob 


XXOP TR7SF MODULE READ-ONLY 
le MAGTAPE ROUTINES 


oocss4 
OOOSS6° 


O0OSE0’ 


080676’ 
060700" 


* 000000 


000000 


105067 


003335 
000207 


000090’ 

000004 177762 
177000 177756 
177000 177266 


7374 
000000’ 177256 
000010 177&34 


001000 177700 
000009’ 
o0o0006 


000400 o0000e 


MACY11 


27 (732) 


wel Ae 


DES: 000 

BYTCNT: O00 
-THE DRIVER 

HRIVER: CLR 


1$: 
118: 


es: 


33: 


EQS 
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EOFSEN 
XBA(RS) ,DES 
#-Sl2. ,BYTCNT 
8-512. aMTWC 
PC. TRBSET 
TRBF , JMTBA 
PC. MTDRV 
Geet 


XCO(RS) ,aMTCM 
Pc MTDOL 
PC’ PAK 
#512. DES 
EOF FSEN 
PIPFLG 
#256. .XWC(RS) 
1$ 


fa 
a 


;SAW NO EOF YET 
:LOAD POINT : 

eee WORDS PER RECORD 
{SET WORD COUNT IN DEVICE 


;SELECT THE DRIVE. 
INHIBIT 


‘AIT FOR DONE 
; UPDATE 
EO TV? 


; BRANCH If YES 


NOT DONE YET 


SEG COSE 


-—- --- 
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Plz MAGTAPE ROUTINES seu 0S 


frururuturoruru 
furutututuruoru 
co 0CP Un toru 


b+ bo «po pm « 


~, 
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OMGUFA.! MAGTAPE “Rout NES seq cose 
1229 orocon* .CSECT MTCOMM 
(1) : TR7SF MAGTAPE FILE HEADER FORMAT 
(1) : FILE HEADER CONSISTS OF SEVEN (7) WORDS. 
(33 : WORD 1 THROUGH 3 NAME AND EXTENSION IN RADSC 
qd) : WORD 4 PPN (401) 
(1) WORD S 0 
(1) WORD & DATE (DOS FORMAT). If CONTIGUOUS 
iD) : FILE, BIT iS IS SET TO 1 
£1) . WORD 7 FILE SIZE IN # OF 256 WORD BLOCKS. 
(1) oocoo0" oo 909 EOFSEN: .BYTE 0,0 
ob “SBTTL DISPATCH TO UNIQUE DEVICE ROUTINES. 
(1) gocc00 CDIR= 
C1) 900002 CRWD= 2 
(13 99904 ESKPR= 4 
(1) 900006 CCLHD= §& 
(1) 900010 CUTHD= 10 
(1) 900012 CWEOF= 12 
Bb 900014 CRHD= 14 
‘13 ooco02° CREWND: : 
{1} 900002* o1274_ op0002 MOV #CRWD, - (SP) sPOINT TO REWIND ROUTINE. 
(1) 900006’ 900405 BR COMMON 
(1) 900010° 912746 ooo0D4 CSKIPR: MOV BCSKPR, -(SP) :POINT TO SKIPR ROUTINE. 
oe s005i4* 500402 BR COMMON 
(13 00016" CRDHDR: : 
L) 000016’ 012746 oD0014 MOV 8CRHD, - (SP) :POINT TO RDHDR ROUTINE. 
© @ 
(1) go0022" obEs16 oDD0z0 COMMON: ADD XDR(RS), (SP) sADD ADDR OF ROUTINE TABLE. 
(1) Q00026° 017616 ocood0 MOV 3(SP). (8p) GET ADDR OF DESIRED ROUTINE. 
(1) 990032° 066718 do0c006 aso RELONT. (SP) : CORRECT FOR RELOCATION. 
(1) O60036° Cleeo7 MOY (SP)+, PC 750 TS DESIRED ROUTINE. 


TR7QF - XXDP TR7SF MODULE READ-ONLY MACYI11 27(732) O3-JAN-77 13:48 PAGE i-9 


OMSUFA.P12 LOOKUP ROUTINE S£6 cose 
1) .SBTTL LOOKUP ROUTINE 
'T) gogo4o’ o0s765 177722 LOOKUP: TST —XFLCNT(RS) :FILE COUNT 0? 
(1) pogo44* 001403 EO «1S ‘BR IF YES. GO REWINC. 
4) $6004" 905765 177720 TST _-XFLMOD(RS) 'IN FILE MODE? 
(i) 0005s3° ooroae BNE SEARCH '8R IF YES. 
[1) ge00s4" 004767 177722 1S: JSR PC, CREWND SREWIND TAPE. 
'1) O00080" 904767 177732 SEARCH: JSR PC CROHOR ;READ, HEADER BLOCK. 
| ee ee am a a a 
i} Boooes: BOeSE AaOA8Ec ey BLE ‘ARTE RED erie? 
(1) 900076" 001770 BEQ SEARCH ‘BR IF YES. SKIP IT. 
(1) 900100" 016767 opo0006 o00012 MOY - STXNAM, 2 
(1) 009108" O16767 Go0000¢ ooo006 MOV -§BUF, o¢+2 ; 
(1) Q00114° 004567 ooo000¢ JSR __R5, UPKNAM ;CONVERT NAME TO ASCII. 
(1) g00120° do0dd0 ooo000 23: OPEN, OPEN. 
(1) Q00124" 004567 o00000¢ JSR’ RS, CMPNAM ; COMPARE, NAMES. 
(1) 090130’ 000753 32 SEARCH :NO_MATC 
(1) 900132" 016765 oo00006 177732 Mov BUF, XSVNAN(RS) STORE NANE IN DDB. 
“12 SOOING: Olgr6s pooonee 177734 Noy BLUES, xSVNArt¥2 (RS) 
(1) O00146° O1e7e8 doo0n4e 177% MOV - BUF +4 XSVEXT(RS) ;STORE EXTENSION. 
[1} OGOISH’ O1€768 OoOdi26 177740 MOY _-BUF+10--xSvDAT TRS) [THE DATE TOC. 
‘1) 909162" 016768 oO00014G 177746 MOV BUF +12. 'XBKLGT(RS) iEILE LENGTH ALSo, 
(T) Q50170° o6e71g doo002 0D swe, (SB) Set u P Success EXIT. 
'f) OBI?" ogge0? us: RTS PC ‘BONE. RETURN. 
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OMSUFA.P12 LOOKUP ROUTINE SEQ d0EC 
(1) ooo000" .CSECT TRBF 
(1) goo900" o90c02" TREF:  TRBUE 
<1) 000062" o01000 TRBUF: .BLKW S12. 
(1) “SBTTL DIRECTORY ROUTINE 
1) oo0000" “CSECT MTDIRT 
(1) 900000" 904567 coD0006 DIRECT: JSR «RS, MES ;WHAT KINDA TAPE 
(1) 990004 900074" HEADER 
(1) 900006’ 904767 op0040" 1S: JSR PC, LOOKUP ;FIND A FILE. 
(1) 900012" ogo4e¢ eR 25 'BR IF NO MORE. 
(1) 900014* 004767 9000906 JSR PC, CRLF : CRLF 
(1) 00020" 016503 177722 MOV —-XFLCNT(RS),R3 : TYPE _FILE COUN 
(1) 000024* 004767 o00000¢ JSR PC, ITOA :D0 IT. 
1) 000030’ 904767 co0000¢ J5R P CTA : TAB. 
(1) 900034" 004767 op0000c JSR TPNMI iT YEE FILE NAME. 
(1) 000040" 016503 177740 MOV KSUBAT RS), R3 TYPE FILE DATE. 
(1) 00044" 004767 do00096 JSR —- PC, DATUPK 
(1) 900050" 005765 177 TST XSVDAT(RS) ; CONTIGUOUS FILE? 
(1) 00054" 100354 BPL 1$ :BR IF NOT. 
(1) 000056’ 112702 oco103 MOVB =a" : YES, NPE AC. 
(1) 00062’ 004767 o00000c JSR Pc. BHROUT 
4) poooREY oog7H7 BR 1$ eS 20k MORE. 
(1) 000070’ 000167 oooo0e" 23: IMP CREWND SREWIND TAPE 
(1) 900074" HEADER: 
(1) Q00074" O4e44S OS2116 O54S22 JASCIZ * “ENTRY 8" < 11> FILNAM.EXT' «11> *DATEX" 
(1) 900102" oo4443 o44506 9547114 
(1) QO0110’ O4sSol Oye45e O52130 
(1) QOOO116" O42011 O52101 d2esos 
(1) oogie4" — 900 


090126" EVEN 
i END 


fu 
GJ-- 


co 
oO 
Oo 
oO 
© 
© 
- 
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OMGUFA.P1l2 CROSS REFERENCE TABLE -- USER SYMBOLS SES GCE! 
ALS = 177772 10008 
BODCY = eexEEE CG 10008 
BCLEAR= xaxeee 10008 
BKREAD= #eeeee GC 10008 
BLOCK OO00032R 10018 
BMOVE = eeeeEE GC 10008 
BUF = eREERR OC 10008 1124 12293 
BUSADR O00030R 10018 
BYTCNT QOOSSER 1105* 141% 11908 119S# 
CCLHD = QO0000& 12298 
R = 000000 12298 , 
CHROUT= ##424% G 10008 12293 
CLRBUF= ¥**%%% 10008 
= 177764 10008 
CMOREG OO00024R 10018 
CMPNAM= £#*#22 G 10008 1229 
C COO034R 10018 
COMMON O00022R 002 12298 
CROHDR OOOO16R G O02 12298 
CREWND OCOOO02R G O02 12298 
CRHO = OOO0014 1229% 
CRLF = £HEHEX GC 10008 1229 
CRWOD = 000002 12298 
CSKIPR OO00010R 002 12298 
CSKPR = 000004 12298 
CWEOF = O000le 12298 
HD = OO0010 12298 
DATUPK= ##%#4% G 10008 1229 
AY = £¥keRE GC 10008 
D O0OSS4R 1107% 1138 11898 1194* lel3s 
DEVERR= ###42% CG 10008 1084 
DIRBLK OOCOSOR 1001 10028 
DIRECT OOOO00R C54 1001 1229% 
DIRPTR OOQO44R 10018 
= 177762 10008 
= 000200 10008 1071 1113 
DRIVER OQOOS60R 1001 11938 
ORT = 756 10008 all 
EOFSEN OOO0000R 002 1082% 1103% 1118 1119 1193% 1214 12298 
EOMERR= *4444% G 10008 
ERROR = 100000 10008 1671 1113 
ETR = 177766 10008 
FLNOTF= 444444 G 10008 
FSTMOD= ##e444 10008 
HEADER OO00074R CO4 12298 
IFLMOD= #44444 G 10008 
INVCMD= #44444 G 10008 1011 1002 
A = #£e8ee CG 10008 1¢29 
LOOKUP COOO4OR 002 i001 12298 
LSTBLK OQOOOOD4E' 1001% 
SC = £eEEEE CG 10008 1229 
MTBA 000076R 1005 1063* 1109* 1203s 
MTCM 000072R 1004# 1033* 1070# 1071 llll# 8961113 1206# 
MTOO O000224R 1021 1027 1929 1060% 
M7D0:  OO0C2ED0R 10718 1072 1207 
MTOS2 000272 1034 10748 1075 1083 liie 


? 
¢ 
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DMGUFA.P12 CROSS REFERENCE TABLE -- USER SYMBOLS 
MTORVY OOO164R 1017 1024 10308 1104 1204 
NTER! © OO0S36R lost ideys 1128 
MTST 000070R 10038 1018 1069% 1074 1076 1080 1110% 1116 lleé 1205+ 
MTwC 000074R 100S# 1060% 1061% 1106% 1201# 
NXTBLK= ¥¥4%2% G 10008 
OPEN = 000000 10008 1229 
PAK 000514R 1123 11358 le2le 
peo fem daa SE 
=A iat 1000 1013% 1017% 1022% 1023% 1024 1034* 1035% 1055* 106e*  1078# 
1108* 1lllex liege 112e5* 113% L143e 1144" i202% le04* 12074 i2les 
PIPFLG= 44x44% G 10008 lelé 
PS = 177776 10008 
PTil = 42442" U 13932 
Ror, meses HEE" one 
ROONLY= OO0000 1000 1001 1002 1011 1036 1064 1153 1196 1208 1229 
O000036R 10018 
READBK= £##*#*#4% G 10008 
RELCNT= £444%% CG 10008 1054 12293 
RESR7 = £4444% G 10008 
REWIND OOO106R 1002 10178 
RHODRI QO00424R 11138 4861114 
RHDR2 O00436R 11168 
RHDR3 OQOO00502R 1115 11268 
RHDR4Y #Q00474R 1120 11248 
RHDRS OO00346R 11048 8 § llel 1127 
RHDRE OOO4S4R 1117 ll2es 
RK11 = #448" LU 1472 
RPOY = ¥£RHEX U 1610 
RP1] = £#e##e U 1730 
RSTOY = *4444% GC 10008 1143 
RSO4Y = €¥¥%2% U 1677 
RXOl = #44444 LI 1802 
RO =%000060 10008 1012% 1137% £1139 1140 
a ae ae ane 
R3 =4000003 10008 1020 1025% 1928% 1030% 1031% 1032*% 1033 1070 1225% 
ie) =%000004 10008 1135 
RS =7000005 10008 10e6% 1031 1060 111i 1194 1206 1218%  1229% 
=%000006 10008 
SAVOY = #eeee GC 10008 1135 
SEARCH OOOCOEOR 002 12298 
SETMTO OOOL1OQOR G 10108 
SHORT = £44444 U 1229 
SKIPR 000136R 1002 10248 
SP =%000006 10008 Ille2*  1229% 
SRH = 177770 1000% 
TAB = ##eeee GC 10008 1229 
TO11 = HeeREE UJ 2008 
TCl] = HeneeE U 1527 
TMOG = #eeKER 1231 
TREE OCCOODR 083 1053s 1054s 1063 1199 1137 1203 12298 
TRBSET OOO20ER 10538 0&2 1108 1136 1202 


TREUF OO000eR S03 1053 12298 


TR7OF = 


XXDP TR7SF MODULE READ-ONLY 
CROSS REFERENCE TASLE -- USER SYMBOLS 


OMGUFA.P 12 


Pas 
wo 
4xOD 
e 
o 
—4 


cococo 


KERELE 
0001265 


G»G>G>»G> 


oo} 


100C% 
12298 


1060 


-— 
iat) 
tf 
w 


MACY11 27{732) 


1219% 
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TR7SF - XXDP TR79F MODULE READ-ONLY MACYLI 27(732) O2-JAN-77 13:46 PAGE 3 
ONSUFA. P12 CROSS REFERENCE TABLE -- MACRO NAMES $5 coe4 


MTCOMN © B20 «1229 
MTBARN = ese 1002 


SRS 488 
RESR7 Sls 
ROUTIN 328 
SAVREG 428 1135 
TITLE 708 1000 


UNPACK £38 
DPACKL bbe 


TR79F -  XXDP TR7SF MODULE READ-ONLY  MACYI1 27(732) O3-JAN-77 13:48 PAGE 4 
OMGUFA.P12 CROSS REFERENCE TABLE -- PERMANENT SYMBOLS SEG OOES 
abd 10954 91122 121 1229 
BEQ ites loss 1B? 108i 1114 = 1117ss120s« 1229 
BGT 1219 
81S 1020 1025 
B17 1018 1071 1074 1076 1080 1113 1116 861126 
BMI 1073. «1115 
BNE 1019 «1127, 1H2Ss121S S127 1225 
BR” 153; 192710 1121 «1128 = :1229 
é 
ai 13g | fRESTHB SRE 
CLRB 1103 = 1193 
CMP 1119 
INC 1140 = 1141-1229 
INCB 10821118 
IMP 1084 1229 
JSR ipo? 19eg 19241034 10621078 10H 1108121123 113511361142 12021204 
MOY thts «= T84E = «1882 = oa2 Ss t0s3 Ss toe0Sst083 S700 Sso 07 11091121137 1138 
11964 861195 1201S 1203S“ 1206 =~ 1229 

MOY 1031 1139 = 1229 
NEG 1061 ; 
RTS 1013. 1023103851055) s1079ss112SS L4H) ss122Dsd12289 
Sup i218 
Swag 1032 
TST 1124 = 1229 
TSTB 1214 = 1216 

ASCIZ 1229 

BLKW = 1229 

BYTE 1229 

CSECT 1229 

ND 2308 


0c ugh 400 a a (2 


2053 e104 2135 2eiss 2211 2278 2287 2305 2307 


EV. 1229 
Riis _ 999 1001 1002 1231 1392 1472 1527 1610 1677 1730 1802 2cds 
F 1001 1002 


— Heo HES? YG ATG ATE? «AEG ABYE AEG AGH SNP NB GEN 1738 


“LIST 1 
MACE 3 42 4S 4g 51 S4 sg 62 6 70 170 203 225 250 g20 
PAG 1000 «= s_« 1001 1008 «=s«1015—Ss—«édL'P 1229 


- PAGE 
- SBTT 1000 1001 1009 1016 1229 


. 98S. ooc000 ono 
oog7r2 sO 

MTCOMM O00176 

TREF 002002 O03 

MTDIRT O0Ol2e6 O04 


TR79F = XXDP TR7OF MODULE READ-ONLY MACY11 27(732) 03-JAN-77 
OMOUFA.Ple2 CROSS REFERENCE TASLE -- PERMANENT SYMBOLS 


ERRORS DETECTED: O 
DEFAULT GLOBALS GENERATED: 0 


*TR7SFR TR7SER. LST/CRF=DMQUFA.P12/EQ: TR79F “EQ: RDONLY 
RUN-TIME: 8 9 1 SECONDS 

RUN-TIME RATIO: 35/19=1.8 

CORE USED: 13K (2S PAGES) 


LNKX11 VO22 3-JAN-77 13:51 
sOMOUFA.BIN’T: 20000, TROP. MAP=TRDPM, TR79FR/E 


LOAD MAP 


TRANSFER ADDRESS: oo00c} 
LOW LIMIT: 005760 

HIGH LIMIT: O20C0C 

XHEEKERELE 

MODULE TRDP 

SECTION ENTRY ADDRESS SIZE 
<, ABS.> 000000 0000 
< > 005760 000710 


oO 
Oo 


<MTDIRT> 006670 000126 
<RUNBUF > 907016 001000 
<TRBF > 010016 o0200e 
<RESMON> Ole020 O04E0 


1) 

UF 015420 
CHROLT Q13016 
CLRBUF 014106 
CMPNAM 014164 
CRLF Ole7ee 
DELAY Oleeee 
DEVERR 013236 
EOMERR 014050 
FLNOTF 014732 
IFLMOD Ol64e2e 
INVCMD 012644 
ITOA 013eSe2 
MES Olebbe 
NXTBLK 013770 
PIPFLG Q16543 
READBK 014024 
RELCNT 012672 
RESRS 014256 
RESR7_ 014042 
RESTRT 012070 
RSTOY 914072 
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SAVOY 
TA 


MODULE TR7SF 
SECTION ENTRY 
’ ) 


SETMTO 


OdVOVOOVOONO0O 
= hb 0 ee 


ADDRESS SIZE 
O16706 000702 
017000 

017602 o0017¢ 


017620 
017604 


RUN-TIME: 1 SECONDS 


COB 


SEG O0E7 


